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This is the first issue of Volume 2 of RISC User, and you will find included a complete index to 
the first ten issues of Volume 1 . Since we started, the Archimedes has established itself as a 
highly desirable and innovative machine, and Acorn certainly deserve praise for what it has 
achieved. 

We have said on several occasions that it would be the availability of good software which 
would ultimately determine the Archimedes' success or failure. Much has already been 
achieved in this field, but only now are we beginning to see applications which really do show 
what the system can do. Acorn leads the way with RISC OS, the new multi-tasking version of 
Arthur due for release next April. Praise must also go to Clares Micro Supplies, where Dave 
Clare has done more than many to exploit the potential of the Archimedes. If you have not yet 
had a chance to see the current culmination of Clares' efforts, then ProArtisan is a treat which 
is still in store for you. Certainly, exciting times seem to lie ahead for the Archimedes. 

We always welcome your own views and comments on what we do, and we would 
particularly like to encourage more readers to consider contributing to the magazine. Articles, 
programs, hints: all are welcome. In addition, we need some good writers to undertake some 
of the reviews we have planned for the future. If you think you can help, why not contact us? 

The BBC Micro User Show, with particular emphasis on the Archimedes, takes place at the 
New Horticultural Hall, Westminster from 1 1 th-1 3th November. We hope to meet as many 
members as possible on the BEEBUG/RISC User stand. 



This month 's telesoftware password is ferryboat 
(see BEEBUG pages on Micronet) 









Hot on the tail of ABC (see last month's RISC User) 
comes another Basic V compiler, this time from Silicon 
Vision. RiscBASIC, as the new compiler is called, is 
claimed to cope with almost all Basic V programs. The 
only statement not supported is EVAL, and there is no 
limit on variable and array sizes (except that imposed by 
available memory). Full runtime error handling is included, 
as is the ability to enter the Basic editor whenever a 
compilation error occurs. 

Also new from Silicon Vision is RiscFORTH, a complete 
implementation of the FORTH-83 language. This was 
previously released by Blue-Grey Software, but Silicon 
Vision has bought the rights and is now the sole publisher. 
A major feature of RiscFORTH is the ability to write 
programs that can run concurrently with each other. Both 
RiscBASIC and RiscFORTH cost £99.95 inc. VAT each, 
and are available from Silicon Vision Limited, who are 
located at Signal House, Lyon Road, Harrow, Middlesex 
HA1 2AG,tel. 01-422 2274 or 01-861 2173. 

ACORN BACK IN THE BLACK 

Acorn made a profit of £71 1 ,000 in the first half of 1988, 
compared with a loss of nearly £1 million in the same 
period last year. This has meant that Acorn has been able 
to cut its bank borrowing by £1 million in the last year. 
While the total sales for this period showed only a slight 
increase to £20.5 million, Acorn's chairman Elserino Piol 
is confident that this is only the start. Since these figures 
were released, income from Archimedes sales has 
exceeded that of the Master series for the first time. 
Hopefully, this will ensure a bright future for Acorn, and 
provide security to its customers. 

GRAPHS GALORE 

Mouse Plotter is a new graph plotting package from the 
Shell Centre for Mathematical Education at Nottingham 
University. Data can be read into Mouse Plotter from a 
number of different file formats, including plain text. It is 
also possible to read in raw numbers, and the program 
automatically chooses the correct data type. Expressions 
to be plotted can be in the usual form of y=f(x), for 
example y=SIN(x), or a more complex form such as the 
equation y 2 =a 2 -x 2 . Graphs can be scaled automatically, 



and areas of interest can be blown up by dragging a box 
with the mouse. Mouse Plotter costs £15 (inc. VAT) and is 
available from ITMA, Shell Centre for Mathematical 
Education, University of Nottingham, Nottingham NG7 
2RD. 

ARCHIMEDES ART 

Beard Technology has released a mode 15 drawing 
package called Leonardo 256 to complement the original 
Leonardo which runs in mode 12. Both packages include 
commands to draw various shapes, as well as drawing 
freehand, and there are also facilities such as a flood fill. A 
zoom facility allows all editing to be performed at any level 
of magnification, and if you make a mistake there is an 
undo option which can itself be undone. A special data 
compression technique can be used to save pictures, 
thereby allowing many more to be fitted on each disc. 
Leonardo 256 costs £19.50 (inc. VAT), while the original 
Leonardo is available for £17.50 (inc. VAT). Both of these 
packages can be obtained from Beard Technology who 
are situated at 1 1 1 Evering Road, London N1 6 7SL, or tel. 
01-806 4460. 



At the recent Econet '88 conference in Birmingham, Acorn 
emphasised its commitment to the Econet network 
system, especially with the Archimedes. The new network 
drivers in RISC OS cure many of the problems that 
Archimedes network users had complained about, and 
Acorn is set to release a new Filestore system to act as a 
network file-server. The new Filestore is ciaimed to be 
much faster than the current model, and can support up to 
240Mbytes of disc storage via a series of 40 and 60Mbyte 
hard discs. Acorn also stated that it is working on 
connecting the Archimedes to faster networks such as 
Ethernet, which will allow the full speed of the ARM 
processor to be utilised. 



Several RISC User members have experienced problems 
contacting IFEL, manufacturers of the four-slot backplane 
featured in last month's news. IFEL has in fact changed its 
phone number. The new number is (0752) 847286, and 
not the one given in last month's news, or in IFEL's 
advertisement 
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V7A/A/S Ait THIS FOR JUST 4.95 

1 . ARCSCAN 

A fast on-screen bibliography with 
powerful search facilities for all the 
RISC User and BEEBUG magazines. 
Normal price £12. 



This powerful drawing tool is a full 
screen full-feature pixel editor for 
creating and editing screens and 
sprites. 

TOOLBOX 

This incredibly useful utility features a 
memory editor, memory search and 
replace, disc editor and disassembler. 
TOOLBOX contains many of the 
features found in packages costing 
over £35. 



A stunning animation with an oddly 
reminiscent feel to it. 

DISC MENU MODULE 

Use the mouse to control your disc 
files with this extremely useful 
relocatable module. 



This printer buffer frees your computer 
during long printouts and is 
configurable from a few bytes to 4 
Mbytes. Similar to packages currently 
selling at £19. 



Altogether the items on the disc would be 
worth over £50 it bought separately. See your 
subscription reminder or next month's 
magazine lor lull details. 



RISC OS REVEALED 



David Spencer gives a preview of Acorn's exciting new operating system for the 

Archimedes. 

I am sure that most Archimedes owners are 



aware by now of RISC OS, the new operating 
system which Acorn unveiled at the Personal 
Computer Show in September. The purpose of 
this article is to give an insight into the new 
facilities offered by RISC OS. 
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One of the most talked about features of 
RISC OS is muiti-tasking - the ability to execute 
two or more programs concurrently. The first 
thing to say is that RISC OS does not support 
genuine multi-tasking. Instead, the RISC OS 
approach to multi-tasking centres around the 
use of the Window manager (WIMP). The key 
to any WIMP based program is the use of the 
SWI call 'Wimp PollWimp', which is provided 
by the WIMP module. Essentially, an 
application program continuously calls this 
routine which then returns a code to indicate 
what action should be taken next. This may be 
something like redrawing a certain window, or 
processing a keypress. Alternatively, if the 
WIMP doesn't need any tasks performed, the 
application can do its own processing, for 
example, updating a clock display. 

In Arthur 1.20, whenever an application 
called the WIMP polling routine, it would return 
almost immediately with a request for whatever 
action should be performed. This is not true for 
RISC OS, which instead maintains a list of 
active tasks. Each time one of these tasks calls 
the polling routine, the WIMP returns not to the 
calling task, but to the next one in the list. This 
is repeated for all the tasks, until the original 



caller finally gets dealt with. The entire process 
is then repeated. This provides a way for all the 
applications to perform their functions without 
any knowledge of each other. 

The Desktop program in 1.2 was written in 
Basic and took up nearly 100K of the operating 
system ROMs. In contrast, the RISC OS 
Desktop is a mere 6K of ARM code, and rather 
than being an application in its own right, is 
more a 'spring-board' for starting genuine 
applications. When you enter the Desktop, it 
'hunts out' any modules which contain 
applications and starts these up. 

The ROM based applications stored as 
modules are the task switcher, the palette utility 
and the filer. The first of these is the all- 
important utility for switching between tasks. 
The task switcher is also responsible for 
allocating the correct amount of memory to 
each task. The amount of memory used for 
areas such as the screen and sprite workspace 
can be changed simply by dragging sliders on 
the screen. 

The palette utility is similar to that from 
Arthur 1 .20, but with the ability to operate in any 
mode. It is possible to switch from mode 12 to 
15 within the Desktop, and hardly notice the 
change. Similarly, you can switch into mode 16 
or 17 and get a much wider display. The 
Desktop will even work in mode by using 
shading to represent colours. 

The filer is probably the most important 
resident application. As on Arthur 1.20, 
directories can be displayed from any filing 
system, and sub-directories can be opened just 
by clicking on them. However, it is also possible 
to copy a file from one place to another just by 
dragging it between windows. Applications can 
be installed simply by double clicking on them, 
and they will then appear as an icon on the 
bottom icon bar. To open an installed 
application just click on its icon. A file can be 
loaded into an application simply by dragging it 
from one of the filer's windows onto either the 
application's window or its icon. To save files, 
each application pops up a window containing a 
icon for the file to be saved. This can then be 
dragged to the filer window of your choice. 
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FILING SYSTEM CHANGES 

RISC OS also includes a number of 
improvements as far as filing systems are 
concerned. The most noticeable change is the 
addition of a RAM filing system. This stores 
files in a RAM disc, the size of which is 
configurable by the user. The RAM filing 
system behaves just like the ADFS in use, and 
files can easily be copied between the RAM 
disc and a real disc (or a network). 
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The ADFS has also been extended to allow 
an extra format. This new 'E' format, as it is 
called, stores 800K per floppy, just as the 
current 'D' format does. However, the new 
format does not necessarily store files as one 
continuous block. Instead, a 'scatter map' 
technique is used to allocate disc storage. The 
directory entry for each file now contains a file 
number rather than the disc address of the file. 
This file number is used to locate a map on the 
disc which shows where all the parts making up 
a complete file are stored. Using this technique 
means that you no longer have to use 
"COMPACT, because a file can be split 
between areas of free space. Another 
advantage is that any defective sectors on a 
disc can be mapped out. Therefore, a single 
damaged sector no longer renders the entire 
disc unusable. 

A further improvement to the ADFS is the 
ability to configure the amount of RAM used to 
buffer directories, and also the amount of RAM 
to be used as a file cache. By changing the file 
cache size it is possible to greatly reduce the 
number of disc accesses when performing 
certain random access operations on files. 



For Econet users there have been a 
number of improvements to the network 
software. In particular, the Econet driver in 
RISC OS allows the transfer of files to be done 
in sections. This avoids the problem of one 
computer hogging the network while 
transferring a large file. Operations such as 
"NOTIFY are also implemented in the new 
software. 



As well as the major changes already listed 
there are a number of other features new to 
RISC OS: 

A drawing module that includes Bezier curves. This 

makes it easy to implement a page description 

language such as PostScript, and is thus ideal for 

driving laser printers. 

A number of new SWI calls, including a high speed 

heap-sort routine. 

International keyboard drivers to change the 

keyboard layout for different countries. 

An improved serial port driver with all the previous 

bugs fixed. 

Faster interrupt handling, allowing the use of faster 

hard-discs. 

A new 6502 emulator that mimics a model B rather 

than a second processor. 



RISC OS will be supplied with two Welcome 
discs which will contain three major 
applications in addition to the usual examples 
and tutorials. These are ARCEdit, a full-feature 
text editor; ARCPaint, a sprite designer and 
painting package; and ARCDraw, an object 
based drawing package. All of these are very 
useful tools to complement RISC OS. 



Overall, RISC OS provides a highly 
effective and user friendly working 
environment, not dissimilar to that of the much 
acclaimed Apple Macintosh. At the same time, 
Acorn has achieved almost total compatibility 
with the current Arthur 1.20. 
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The premier exhibition for users 
of all Acorn machines returns to 
its popular venue in the heart of 
the capital. 

Traditionally the liveliest event 
of the year on the Acorn 
calendar, the pre-Christmas 
show is the one you just cannot 
3fford to miss. 

It's your value-for-money 
passport to: 

• 70 exhibitors displaying all 
the latest developments 
across the entire Acorn 
range. 

• Archimedes World - which 
provides a fascinating 
glimpse into the current and 
future roles for this 
remarkable machine. 

• Technical advice from the 
UK's leading experts on all 
Acorn computers. 

• Hundreds of special offers for 
the BBC Micro and Electron 
waiting to be snapped up as 
top-value Christmas presents. 

All this - and so much more - 
at the 20th record-breaking 
Electron & BBC Micro User 

You can even save yourself £1 
before you get There by using 
this advanced ticket form. 



New Horticultural Hall, 

Greycoat Street, 

London SW1 

10am-6pm Friday, November 11 

10am-6pm Saturday, November 12 

10am-4pm Sunday, November 13 




Please supply tickets for November show: 

D Adult tickets at £4 (save £1) £.. 

Q Under-16s tickets al £2.50 (save ED £,. 

ade payable to Total E _ 






s Ltd. 



Admission 
£5 (adults) 
£3.50 (under 16s! 
Advance ticket 
must be received by 
November 2, 1988 






□ Please debit n 






□ Access D V 



Stgned 

Post to: Database Exhibitions, Europa House. Adlington Park, Adlington, Macclesfield SK10 MP 
PHONE ORDERS: Ring Show Hotlin 



DATABASE 
EXHIBITIONS 



I! 0625 879920 
Prestel Orders: KEY *89 THEN 614568383 

MkroLink/TetecDfTi Gold Orders: 72:MAGM1 

Please quote credit card number and lull address 



Take a stroll down Innovation 
Row - a brand new show 
feature area, specially 
constructed for the event. 

See the grand finalists 
displaying their breakthroughs 
in public for the first time. And 
you can-help pick the winners 
by casting a vote in both 
categories of the awards - 
BBC Micro and Archimedes. 

How to get there 

Underground: The nearest tubo 
stations are VICTORIA (Victoria. 
District and Circle Lines), 
ST. JAMES'S PARK (District ami 
Circle Lines) and PIMLICO 
(Victoria Line). 
By British Rail: VICTORIA 
STATION. The halls are a 10- 
minute walk from the station 

By Bus: 11 , 24, 29, 70, 76 and 
Red Arrow 507 to Victoria Str&H 
- alight Army and Navy Store* 
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Peter Harris combines the power ot the Archimedes WIMP manager with the audio 
capabilities of the sound system to produce a sophisticated rhythm system. 



In RISC User Volume 1 Issue 7, a simple 
'Beat Box' program was published for 
generating percussion rhythms. The program 
presented this month uses the same basic 
idea, but the screen display has been greatly 
enhanced using the Archimedes WIMP 
manager, while both default and user defined 
voices may be included and the resulting base 
rhythms saved to disc as required. In this way a 
library of rhythms may be built up and 
accessed as required. The whole system is 
very easy to use and gives excellent results. 

In fact, the use of the WIMP manager is 
quite novel. The entire screen display is 
constructed from windows and icons, including 
all the text legends. You will find that there are 
no PRINT statements at all in the listing, and 
the program may well prove instructive to those 
interested in using the WIMP manager or the 
sound system themselves. 

To start with, type in and save the program 
before running it. As listed, it uses the excellent 
RISC User percussion module (Volume 1 Issue 
5 disc) to provide a comprehensive repertoire 
of suitable sounds (the module is referred to as 
'PercusMod'). If this is not available, simply omit 
(or delete) lines 550 to 570 and 630 to 640, and 
the program will use the Archimedes' default 
voices. The screen display, as in the 
illustration, shows 64 beats for each of eight 
voices across the screen, and seven control 
icons at the foot of the display. The eight voices 
will be labelled with the voice names. 

Using the mouse pointer and the select 
button, you can enter beats for any of the eight 
voices, or similarly clear any already set. 
Clicking on the START icon will set the rhythm 
going, while the STOP icon will terminate it. 
The other icons are equally self-explanatory, 
allowing the pace of the rhythm to be increased 
or slowed down, and the entire display can be 
reset (cleared) to its initial empty state. 

Two further icons allow the current rhythm 
to be saved to disc (a window appears to 
prompt for the file name), or a previously saved 
rhythm can be reloaded. The magazine disc 
contains a number of rhythms saved in this way 



(some of them are 'empty' templates to allow 
your choice of rhythm to be entered), as well as 
the RISC User percussion module referred to 
earlier. 
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Lines 90 and 100 contain various 
parameters which can be readily changed. The 
speed factor determines the rate at which the 
beats occur (the higher the value the slower the 
rhythm). The value assigned to beattotal 
controls the number of beats across the width 
of the screen display (beats per bar). The 
screen display automatically adjusts to 
whatever value is specified. 

The line of DATA specifies which voices are 
to be used. By default the Archimedes provides 
eight voices, the maximum which may be active 
at any one time. The RISC User percussion 
module supplies 14 different voices, and any 
eight of these may be selected by specifying 
the corresponding voice number. You can see 
what voices (or instruments) are available by 
typing "VOICES. When you first switch on, this 
will show the default voices. If you run the 
program once with the percussion module, and 
then type 'VOICES you will be able to see what 
is available there. 

The power of the program lies in its 
flexibility. If you modify any of the parameters 
described, then the new values will be saved 
along with the beat information. On reloading, 
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all this information is used to reconstitute the 
display according to the parameter settings in 
use when that rhythm was saved. 
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This program is a truly remarkable demonstration 
of what can be achieved by harnessing the sound 
system to the WIMP manager. For the future we hope 
to include further sets of voices on the monthly 
magazine disc. 
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REM >SEQUENCE 

REM Program Drum Sequencer 

REM Version Al . 7 

REM Author Peter Harris 

REM RISC User November 1988 

REM Program Subject to Copyright 

REM Default values 
speed=20 : beattotal=64 
DATA 1,2,3,4,5,6,7,8 

MODE12:*FX4,l 

ON ERROR PROCerror 

DIM window%(8) ,soundflag(8) 

DIM voice$ (8), channel (8) 

DIM block 1000,fnbuffer 12 

DIM errbuffer 50,menubuf fer 100 

PROCcolours 
PROC setup_sound 
PROCinitwTmp 
PROC setup_wi ndows 

ON ERROR PROCerrorbox 
errorflag=FALSE 
TIME=0:runni ng=F ALSE 
REPEAT 



280 WHILE running 

290 beat=0:TIME=0 

300 WHILE beat<beattotal 

310 PROCplay:PROCgetnext 

320 REPEAT .•PROCpoll: UNTIL TIME>=speed 

330 ENDWHILE 

340 ENDWHILE 

350 PROCpoll 

360 UNTIL FALSE 

370 : 

380 DEF PROCpoll 

390 SYS "Wimp_Poll",s30, block TO evnt% 

400 CASE evnt% OF 

410 WHEN l:PROCredrawwindow (block 10) 

420 WHEN 6 :PROCselect (block! 12, block !1 
6) 

430 WHEN 8:PROCkey 

440 ENDCASE 

450 ENDPROC 

460 : 

470 DEF PROCinitwlmp 

480 SYS "Wimp_Initialise" 

490 SYS "wimp_ForceRedraw", -1,0, 0,1279 
,1023 

500 MOUSE TO 640,512:*POINTER 

510 ENDPROC 

520 : 

530 DEF PROCsetup_sound 

540 REM Omit next three lines for defa 
ult voices 

550 FOR voice=l TO 32 

560 SYS "Sound_RemoveVoice", 0, voice 

570 NEXT 

580 RESTORE 100 

590 FOR voice=l TO 8 

600 READ channel (voice) 

610 NEXT voice 

620 REM Omit the next line 

630 REM for default voices 

640 *RMLOAD PercusMod 

650 PROCsetup_voices 

660 ENDPROC 

670 : 

680 DEF PROCsetup_voices 

690 FOR voice=l TO 8 

700 SYS "Sound_AttachVoice", voice, chan 
nel (voice) 

710 SYS "Sound_InstallVoice",0, channel 
(voice) TO voice$ (voice) 

720 NEXT voice 

730 VOICES 8 

740 ENDPROC 

750 : 

760 DEF PROCsetup_windows 



10 
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770 iconstep=1280/beattotal 
780 iconwidth=iconstep-4 
790 FOR i%=l TO 8 
800 top=1023-(i%*104) 
810 bottom=top-48 

820 window! (i%)=FNcreate_window(voice$ 
(i%),581, black, white, 127 9, top, 0, bottom, 1 
279, top) 

830 PROCcreate_icons (window! (i%) ,beatt 
otal, 0, 0,bottom+4, 0, iconwidth, 40, iconste 
P,S503D, white, black) 

840 PROCopen_window {window% (i%) ) 
850 NEXT i% 

860 window! (0)=FNcreate_window("",s80, 
black, white, 1279, 1023, 0,1000, 1279, 1023) 

870 PROCcreate_icons (window% (0) ,beatto 
tal, 0, 0, 1004, 0, iconwidth, 24, iconstep, S39 
, white, black) 

880 PROCopen_window(window%(0) ) 
890 RESTORE 930 
900 FOR icon=0 TO 6 
910 READ $ (raenubuf fer+ (icon*10) ) 
920 NEXT 

930 DATA START, STOP, RESET, FASTER, SLOWE 
R, SAVE, LOAD 

940 menubar=FNcreate_window("",sC0,blu 
e, white, 1199, 100, 80, 0,1199, 100) 

950 PROCcreate_icons (menubar, 7,menubuf 
fer,10,12,8, (1200/7) -40, 80, 1132/7, S213D, 
cyan, blue) 

960 PROCopen_window (menubar) 
970 fname=FNcreate_window ("Filename: ", 
SCI, black, white, 1000, 100, 800, 50, 1000, 100 
) 

980 PROCcreate_icons (fname,l,fnbuf fer, 
11, 54, 8, 300, 40,0,4131, white, black) 

990 e rrorbox=FNcreate_window ( " ERROR" , s 
CI, white, red, 700, 500, 300, 300, 700, 500) 

1000 PROCcreate_icons(errorbox,l,errbuf 
fer, 30, 400, 50, 300, 48,0, SI 3D, white, blue) 
1010 ENDPROC 
1020 : 

1030 DEF PROCgetnext 
1040 FOR channel=l TO 8 
1050 block! 0=window! (channel) 
1060 block! 4=beat 

1070 SYS "Wimp_GetIconState", , block 
1080 soundflag(channel)=(block!24) AND 
(1«21) 

1090 NEXT channel 
1100 block! 0=window%(0) 
1110 IF beatoO THEN block ! 4-=l ELSE bl 
ock ! 4=beattotal-l 
1120 block! 8=0: block !12=1«21 



1130 SYS "Wimp_SetIconState", , block 

1140 block !4=beat: block !8=1«21 

1150 SYS "Wimp_SetIconState",, block 

1160 beat+=l 

1170 ENDPROC 

1180 : 

1190 DEF PROCkey 

1200 IF block ! 0=f name AND block*! 24=S0D 
fn=TRUE 

1210 ENDPROC 

1220 : 

1230 DEF PROCplay 

1240 FOR channel=l TO 8 

1250 IFsoundf lag (channel )<>0 THEN SOUND 

channel, -15,1,1 

1260 NEXT channel 

1270 TIME=0 

1280 ENDPROC 

1290 : 

1300 DEF PROCselect (window, icon) 

1310 CASE window OF 

1320 WHEN menubar AND NOT errorflag 

1330 CASE icon OF 

1340 WHEN 0:PROCstartplay 

1350 WHEN l:PROCstop 

1360 WHEN 2:PROCreset 

1370 WHEN 3:speed+=speed<>0 

1380 WHEN 4 : speed-=speed<>50 

1390 WHEN 5:PROCsave 

1400 WHEN 6:PROCload 

1410 ENDCASE 

1420 WHEN errorbox 

1430 errorflag=FALSE 

1440 ENDCASE 

1450 ENDPROC 

1460 : 

1470 DEF PROCstartplay 

1480 running=TRUE 

1490 PROCclearbeat (window! (0) ,beat) 

1500 beat=0 

1510 ENDPROC 

1520 : 

1530 DEF PROCstop 

1540 running=FALSE 

1550 PROCclearbeat (window%(0) ,beat) 

1560 beat=beattotal 

1570 ENDPROC 

1580 : 

1590 DEF PROCclearbeat (window, beat) 

1600 block! 0=window 

1610 IF beatoO THEN block! 4=beat-l ELS 
E block! 4=beattotal-l 

1620 block!8=0:block!12=l«21 

1630 SYS "Wimp_SetIconState", , block 
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1640 
1650 
1660 
1670 
1680 
1690 
1700 
) 

1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 



ENDPROC 

DEF PROCreset 

PROCstop 

FOR icon=l TO beattotal 

FOR window=l TO 8 

PROCclearbeat (window% (window) , icon 

NEXT window 
NEXT icon 
ENDPROC 

DEF PROCsave 

F%=OPENOUT (FNf ilename) 

PRINT#F%, speed, beattotal 

FOR voice=l TO 8 

PRINT#F%, channel (voice) 

NEXT 

FOR channel=l TO 8 

FOR beat=0 TO beattotal-1 

block! 0=window% (channel) 

block !4=beat 

SYS "Wimp_GetIconState",, block 

PRINT#F%, (block!24) 

NEXT : NEXT 

CLOSE#F% 

ENDPROC 

DEF PROCload 

F%=OPENlN (FNf ilename) 

INPUT#F% , speed, beattotal 

FOR voice=l TO 8 

INPUT#F%, channel (voice) 

NEXT 

PROCsetup_voices 

PROCinitwimp 

PROCsetup_windows 

FOR channel=l TO 8 

FOR beat=0 TO beattotal-1 

INPUT#F%, flags 

block! 0=window% (channel) 

block !4=beat 

block !8=f lags AND 1«21 

block! 12=0 

SYS n Wimp_SetIconState",, block 

NEXT : NEXT 

CLOSE#F% 

ENDPROC 

DEF FNfilename 

PROCstop :fn=FALSE 

$fnbuffer="" 

PROCopen_window (f name) 

SYS "Wirap_SetCaretPosition",fname, 



0,,, 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
more 
2300 
2310 
more 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
fgcol 
, wat 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 



1,-1 
REPEAT :PROCpoll: UNTIL fn 
SYS "Wimp_CloseWindow",, block 
=$fnbuffer 

DEF PROCopen_window (handle*) 

block !0=handle% 

SYS "Wimp_GetWindowState",0, block 

SYS "Wimp_OpenWindow",0, block 

ENDPROC 

DEF PROCredrawwindow(handle%) 

block !0=handle% 

SYS "Wimp_RedrawWindow", 0, block TO 

WHILE more% 

SYS "Wimp_GetRectangle",0, block TO 

ENDWHILE 
ENDPROC 

DEF PROCcolours 

black=0 : red=l : green=2 

yellow=3 : blue=4 :magenta=5 

cyan=6:white=7 :midgrey=15 

scrollbarf=14 

scrollbarb=14 

highlightb=red 

titlef=12 

titleb=scrollbarf 

VDU 19,0,24,128,128,128 

VDU 19,15,16,128,128,128 

VDU 19,14,16,15*16,11*16,6*16 

VDU 19,13,16,0*16,12*16,15*16 

VDU 19,12,16,0*16,0*16,8*16 

VDU 19,11,161 

VDU 19,10,161 

VDU 19,9,161 

VDU 19,8,161 

ENDPROC 

DEF FNcreate_window(title$,flags%, 
i , bgcol%, maxx% , raaxy% , wal% , wab% , war% 
) 
LOCAL handle* 
block ! 0=wal% : block ! 4=wab% 
block ! 8=war% : block ! 12=wat % 
block ! 1 6=0 : block ! 20=maxy% 
block ! 24=-l :block ! 28=f lags% 
block?32=titlef :block?33=titleb 
block?34=fgcol%:block?35=bgcol% 
block?36=scrollbarb 
block?37=scrollbarf 
block?38=highlightb 
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2660 block?39=0:block!40=0:block!44=0 2890 

2670 block!48=maxx%:block!52=maxy% 2900 

2680 block! 56=&2D:block! 60=S3000 2910 

2690 $(block+72)=LEFT$ (titleS, 11) 2920 

2700 block!84=0 2930 

2710 SYS "Wimp_CreateWindow",0, block TO 2940 

handle% 2950 

2720 =handle% 2 960 

2730 : 2970 

2740 DEFPROCcreate_icons (window, number, 2980 

indirectbuf fer, indtext length, vpos, inset, 2990 

width height, separation, iconf lags, bg, fg) 3000 

2750 FORicon%=0 TO number-1 3010 

2760 minx=icon%*separation+inset 3020 

2770 maxx=minx+width 3030 

2780 block! 0=window:block!4=minx 3040 

2790 block !8=vpos: block !12=raaxx 3050 

2800 block !16=vpos+height 3060 

2810 block !20=iconf lags 3070 

2820 block?23=(bg«4)+fg 3080 

2830 IF (iconflags AND (1«8))<>0 THEN 3090 

2840 ictext=indirectbuffer+(icon%*indte 3100 

xtlength) 3110 

2850 block !24=ictext 3120 

2860 block 128—1: block! 32-11 3130 

2870 ELSE 3140 

2880 $ (block+24)="" 3150 



END IF 

SYS "Wimp_CreateIcon",, block 

NEXT icon% 

ENDPROC 

DEF PROCerrorbox 

LOCAL ERROR 

ON ERROR PROCerror 

PROCstop 

errorflag=TRUE 

$errbuffer=REPORT$ 

PROCopen_window (errorbox) 

REPEAT PROCpoll 

UNTIL errorflag=FALSE 

block ! 0=errorbox 

SYS n Wimp_CloseWindow",, block 

block! 0-fname 

SYS "Wimp_CloseWindow",, block 

ENDPROC 



DEF PROCerror 
MODE 12:*FX 4 
*FX 221 1 
*FX 225 1 
*FX 200 
REPORT: PRINT " 
END 



at line ";ERL 



m 






Leonardo 



Archimedes Mode 12 Art Package 

A comprehensive set of drawing 
options all available at four levels of 
magnification 

Quick compressed screen files, so 
you can save many more screens on 
a disk 



Leonardo 256 



Archimedes Mode 15 Art Package 

Mode 15 version of Leonardo with 
256 colours plus a font generator 

(Leonardo 256 requires 1 megabyte 
of memory) 

£19.50 inclusive 



Available for 
Archimedes 



all models of 



£17.50 inclusive 



Available from : 



Beard Technology 
111 Evering Road 
London, N16 7SL. 
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MATRIX-3: A THREE-DIMENSIONAL SPREADSHEET 



Matrix-3 is the third major new spreadsheet to be released for the Archimedes, and it 
exhibits some novel features. Mike Williams has been trying it out. 



The Archimedes already benefits from the 
availability of a number of spreadsheet 
packages, of which the best known are 
probably Logistix (reviewed in RISC User 
Volume Issue 3) and SigmaSheet (reviewed in 
Volume Issue 7). Pipedream, though not 
specifically a dedicated spreadsheet program, 
also offers comparable facilities in conjunction 
with its word processing and database 
capabilities (reviewed in Volume Issue 8). Now 
Archimedes users have a further choice in the 
form of Matrix-3 from Cambridge Microsystems. 

The packaging is indeed very smart. The 
190 page manual is supplied in a ring binder 
with hard covers which slips into a matching 
case (more reminiscent of software on the PC 
or Apple Macintosh). A pocket at the rear of the 
manual holds the single disc and a keystrip. 

Booting the disc quickly brings up a typical 
spreadsheet display consisting of rows and 
columns. In the case of Matrix-3 this is very 
logically designed for displaying and inputting 
information. There are also three levels of help, 
the default being the so-called 'novice' level. 
This provides a complete reminder of all the 
function and cursor key operations by which the 
software is controlled. Selecting any function 
within Matrix-3 causes a more detailed 'help' 
description to appear. 

One of the more obvious and fundamental 
features of Matrix-3 is that it is 3-dimensional in 
form. A 'sheet' consists of rows and columns as 
usual (up to 10,000 in each case, but the real 
limitation is RAM). In addition, further layers or 
pages may be used (up to a maximum of 100). 
If you want to use Matrix-3 as a standard 'flat' 
spreadsheet then no further consideration of 
pages is required; the software just assumes all 
references are to the current page. But if your 
application needs extra pages, they are there 
just for the asking. 

Cells may contain any one of four entities 
entered via the keyboard. Matrix-3 will 
automatically detect text or numeric input, while 
Ctrl-F and Ctrl-P are used to specify input of 



formulae or programs. In cases of ambiguity, 
text and numeric input can also be explicitly 
signalled. A formula, as you would expect, is a 
single statement, whereas a program can 
consist of many formulae and other statements. 




One most useful feature is the automatic 
use of cursor pointing. Where a cell reference is 
required, moving the cursor to that cell causes 
the corresponding cell reference to be used 
when building up a formula or program. In 
addition, cells may be referred to by means of 
row, column and (if necessary) page numbers, 
or by user assigned row, column (and page) 
titles. 

The heart of any spreadsheet lies in the 
facilities for creating, replicating and editing 
formulae, and (in Matrix-3) programs. All the 
usual arithmetic and logical operators are 
provided, and an extensive range of functions 
covering mathematical, statistical, general, 
matrix, and programming needs. 

Cell contents can be replicated as required, 
either keeping cell references fixed or changing 
them relative to a new start position. However, I 
have yet to find a way of copying the result of a 
formula into another (or the same) cell, a facility 
which I find useful with other spreadsheets 
which I use. Any cell can be programmed to 
display the result of a formula, but that is not 
quite the same. 
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One of the most innovative features of 
Matrix-3 is the facility to create programs, and 
these really are like programs in Basic. A 
complete program, limited in length only by the 
availability of memory, can be created and 
stored in any cell. Matrix-3 programs can use 
five different data types: 

string and numeric constants 

cell references and pointers 

variables 
A cell reference is a standard reference to a 
cell location in terms of its row, column and 
page position. 

Cell pointers, on the other hand, are 
variables used like indirection operators in 
Basic. If a cell pointer is initialised to a 
particular cell reference, then incrementing the 
cell pointer allows other cells to be accessed in 
turn. Incrementing may also use the letters R, 
C and P, followed by a number, to increment 
the cell pointer by the specified number of 
rows, columns or pages respectively. Variables 
are any user-defined identifier (maximum 8 
characters) preceded by a '%' character. 

Nine different types of statement are 
possible in Matrix-3. These are: 

assignment pointer 

goto conditional 

call return 

while-do cell assignment 

comment 
Most of these have their Basic equivalents. The 
pointer statement simply assigns to a cell 
pointer the cell reference. The conditional 
statement is that old friend, the IF-THEN-ELSE 
construction. Cell assignment allows the result 
of an expression to be assigned to a cell. 

Call and return provide a simple subroutine 
facility. The call statement specifies a label 
marking the start of the subroutine. A much 
more useful facility is the availability of an 
EVAL function. This takes as its argument a 
cell reference, and when called will execute 
any formula or program stored in that cell. This 
provides the equivalent of Basic's procedure 
handling, though no direct parameter passing is 
possible. Values can be passed using other 
cells. 



I have dwelt at some length within this short 
review on the programming capability of Matrix- 
3, but it does strike me as a particularly 
powerful and flexible addition to what most 
spreadsheets have to offer. 

Regrettably there is no space to give more 
than the briefest mention to several other 
features of Matrix-3. Display formats can also 
be defined by the user. The screen can be split 
vertically or horizontally into two separate 
windows for viewing different parts of a sheet. 
Rows or columns can be sorted into ascending 
or descending order. There are also some 
relatively elementary graph-drawing facilities 
covering bar, line and point charts, and future 
versions of Matrix-3 will allow data to be 
exported to Presenter (also reviewed in this 
issue) for better presentation. 

The documentation is well produced, but I 
felt that it was somewhat dry and academic in 
style. Some example files are included on the 
disc, but there is very little description of these 
in the manual, nor any other worked examples 
of spreadsheets. 

There are many good features to Matrix-3, 
not least the help screens. However, I have to 
confess that I found neither the software nor 
the manual quite as helpful as I would have 
liked when setting myself some realistic tasks. 
The programming facility is very attractive but I 
found some initial problems in using this feature 
correctly and there was no explanation in the 
manual of the error message I encountered. 

Matrix-3 is a good product, well worth the 
attention of anyone seeking a spreadsheet on 
the Archimedes. Personally, I still prefer 
Acorn's Logistix for ease of use plus a wide 
range of features, but Matrix-3 is a strong 
challenger in this field. 



Product 


Matrlx-3 


Supplier 


Cambridge Microsystems 




19 Panton Street, 




Cambridge CB2 1HL. 




Tel. (0223) 66553 


Price 


£109.25 Inc. VAT. 
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ARE YOU GOOD ENOUGH? 

As the leaders in software for the Archimedes range of computers, CLARES 
MICRO SUPPLIES are looking to extend our range even further, We are 
looking for people who are as excited by the Archimedes as we are. 

If you have written any programs, completed or not, then we would like 

to hear from you. 

If you have any ideas for programs and have the ability to execute the 
ideas then we want to hear from you. 

If you have the ability to program the Archimedes but not the ideas to 
program then we want to hear from you. 

Programs can be written in any language as long as they perform their 

stated task. Many of our programs contain large chunks of BASIC with 

ARM code in the areas that it is needed, BASIC on the Archimedes is a 

very powerful language and we do not attach any snob value to its use. If 

your program does what is meant to do then thats all we are interested in. 

Why not join the top team on the Archimedes. You get the support of our 

in-house team, privileged access through us to Acorn and invitations to 

our informal programmers seminars. 

The most important point is that you will be earning top royalty rates of if 
you prefer we will purchase your program outright. 

Please write, in confidence, to Mr. D. Clare at: 

Clares Micro Supplies, 
98 Middlewich Road, 

Northwich, 
CHESHIRE CW9 7DA 

If you have a program either complete or in development then please 
enclose a copy for our evaluation. 

To protect yourself we advise that you lodge a copy of the program with 

your bank or solicitor BEFORE you send us a copy. You can then prove 

that your program pre-dates anything that we have. 

Act today and become part of the leading software team producing 
software for the worlds fastest micro. 
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Stephen Streater adds some new features to last month's real-time image spinner. 



The program needs 
270K of User RAM. 



■n ram and 



The Image Spinner program published last 
month allowed you to create a variety of visual 
effects in real time. This month's listing 
provides a number of useful additions. With the 
new version you can operate on any 
rectangular part of an image (last month's 
would only spin a whole screen). The new 
version will also allow any scaling factor to be 
applied to the image, so that you can magnify 
the original as well as reduce it. The new 
routine also allows you to hold a number of 
images in memory at the same time, so that 
you can simultaneously spin more than one 
image. Code has also been incorporated to 
automatically clip images extending beyond the 
edge of the screen, and to cope with rotation 
angles outside of the range to 2 pi. 



The extent of the enhancements explains, I 
hope, why the new bits of code are lengthy. But 
with these additions, the routines become much 
more powerful, and can be used for many 
purposes other than just spinning images. 
Essentially, the program allows you to "grab" 
any part of a screen image, and place it back 
on the screen at any magnification or reduction, 
at any position, and at any angle. By repeating 
the procedure within a loop, you can create a 
wide variety of effects. 

GETTING IT GOING 

To make the program operational, you need 
to incorporate this month's code into last 
month's program. It is vitally important to keep 
to the line numbers as published (both 
magazine and disc versions of the original 
program used the same line numbering). The 
listing published here will work as an EXEC file, 
so if you have a text editor, you may care to 
type it in, save away the text file, and then 
EXEC this into last month's program. If not, you 
should load in last month's program, and type 
in the amendments very carefully. Note the two 
deletion sequences. Once you have done this, 
save the new program before running it. 



When you run the new program, you will 
see the word "END" appear in bold coloured 
lettering during set up. Then the screen will 
clear, and the animation will begin. The "E" 
spirals in from the upper left part of the screen, 
the "D" from the upper right, and the "N" is 
elevated from the middle. All this occurs 
simultaneously, and needless to say the three 
letters finish up in the correct position before 
the sequence repeats. 



N 



EXPERIMENTING WITH THE PROGRAM 

The program is easy to alter in order to 
create other effects. To try it out, press Escape, 
and enter: 

PROCrot(640,512,200,300,0,l) 
This will place a large "N" on the screen. The 
position of its centre is determined by the first 
two parameters, and its size by the next pair. Its 
angle of rotation is given by the fifth parameter, 
and although we have used 0, you could use 
any value, though remember that it is in 
radians, not degrees. The final parameter is a 
new one. It specifies which bank the image is to 
be taken from. Bank holds the "E", bank 1 the 
"N", and bank 2 the "D". 

If you are going to use the program with 
different images, there are two further 
procedures which you will need to call. 
PROCtidy should be called once at the start. It 
has a single parameter, the number of image 
banks which will be used to store images (3 in 
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this case). PROCtidy also assembles the whole 
machine code program. Secondly you will need 
PROCscreen. This copies any part of the main 
screen into an image bank, magnifying it to fill 
the whole bank. It takes five parameters: the x 
and y co-ordinates of the centre of the 
rectangle to be grabbed, the width and height 
of the rectangle to be grabbed, and the bank 
number into which the image is to be placed. In 
the "END" example, we have called this 
procedure three times to store each of the 
three letters in its own bank. The three letters 
were drawn on the screen using ordinary 
graphics commands, but you could equally well 
load in one or more screens or sprites instead. 

Just one more point: the example uses 
screen flipping to keep the animation as 
smooth as possible. In other words, each new 
screen is created when the user is viewing the 
previous one. This is achieved using OS Byte 
&70 and &71 to switch banks (screen banks, 
not image banks) before each new screen is 
created. Shadow bank switching is particularly 
useful when you need to erase the image on 
the previous frame before creating the next, 
because of the extra time which this takes, and 
the flicker caused by the clearing operation. In 
our example, when the "E" and the "D" spiral in 
they leave no trail because previous frames are 
cleared. In last month's example, we did not 
resort to bank switching because we could 
leave all past images on the screen, and simply 
overlay the new ones. 

With a bit of experimenting, you should be 
able to create some interesting effects. If you 
do, we would like to hear from you. 

10 REM >Spinner 

30 REM Version A 1.2 
75 ON ERROR MODE 13 : REPORT: PRINT" at 
line ";ERL:END 
80 PROCtidy (3) 
90 REM Example starts here 
100 MODE 15:MODE 13 :OFF : bcg=18 :bcgt=0 
104 COLOUR bcg+128:CLS 

110 GCOL41: RECTANGLE FILL 64,64,192,32 


114 GCOL1 5: RECTANGLE FILL 320,64,256,3 
20 



116 GCOL2 8: RECTANGLE FILL 640,64,64,32 


118 MOVE 704,224:MOVE 704,64 
120 PLOT SB5,704,384:MOVE 384,64 
122 GCOL beg TINT bcgt:MOVE 384,256 
124 PLOT 555,512, 64 :MOVE 384,384 
126 MOVE 512,384:PLOT S55,512,192 
128 RECTANGLE FILL 128,128,128,64 
130 RECTANGLE FILL 128,256,128,64 
132 MOVE 704,224:MOVE 704,128 
134 PLOT SB5,704,320 
136 PROCscreen (160, 224, 192, 320,0) 
138 PROCscreen (448, 224, 256, 320,1) 

140 PROCscreen (768, 224, 256, 320, 2) 

141 REPEAT 

142 video%=l 

144 FOR s=0 TO 250 STEP 5 

146 SYS "OS_Byte",&70,video% 

148 SYS "OS_Byte",&71,3-video% 

150 video%=3-video%:WAIT:CLS 

152 screen^adr = FNfind_screen 

154 PROCrot(90+s,512,s*3/4,s,s/25-10,0 

) 

156 PROCrot(600,262+s,200,s,0,l) 

158 PROCrot (1150-s,512,s,s,10-s/25,2) 

160 NEXT 

162 SYS "OS_Byte",S71,l 

164 zz=INKEY(500) 

166 UNTIL FALSE 

190 b = 0: [OPT Z 

DELETE 200,360 
400 CMP RO, 

1251 .input EQUD 148 

1252 .output EQUD 

1253 .screen ADR R0, input 
ADR Rl, output 

SWI "OS_ReadVduVariables" 
MOV PC, R14 
.x_begin EQUD 0:.y_begin EQUD 



#320«16:BLT e_l 
:EQUD TRUE 



1254 
1255 
1256 

1257 
1258 



.xl EQUD 0:.yl EQUD 

1259 .x2 EQUD 0: .y2 EQUD 

1260 .x3 EQUD 0: .x4 EQUD 

1261 .temp EQUD 0:EQUD 0:EQUD 0:EQUD 

1262 ,t EQUD temp 

1263 .link EQUD :. Stack EQUD 

1264 .workspacel EQUD workspace 

1265 ,resize_3:FN_init_resize 
DELETE 2170,2640 

2720 DEF PROCrot (A%, B%,C%, D%, t, bank) 

2721 IF bank>=0 THEN 

2722 !workspacel=workspace+80*1024*bank 

2723 ! output=screen__adr 
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2724 

2725 

2726 

2727 

2728 

2740 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

12980 

12990 

13000 

13010 

13020 

13030 

13040 

13050 

13060 

13070 

13080 

13090 

13100 

13110 

13120 

13130 

13140 

s 

13150 
13160 
13170 
13180 
13190 
13200 
13210 
13220 



256 



/2)) 
/2)) 



/ys 



ENDIF 

WHILE t<0:t+=2*PI:ENDWHILE 

WHILE t>2*PI:t-=2*PI:ENDWHILE 

IF C%<8 THEN C%=8 

IF D%<8 THEN D%=8 

r=SQR (C%*C%+D%*D%) /8 : B%=1023-B 

IF SIN(t)*xs<l THEN 

!x_begin=z* (A%/4-r*COS (a) ) 
!y_begin=z* (B%/4+r*SIN(a) ) 
!xl=z/xs: !yl=0: !y2=z/ys 
!x3=0: !x4=z*64*256: !x2=z*64 

ELSE 

IF COS(t)*ys<l THEN 
!x_begin=z*(A%/4-r*COS(a-PI 
! y_begln=z* (B%/4+r*SIN (a-PI 
!xl=0: !yl=z/ys: !y2=0 
!x3=z*64*256: 1x4=0: !x2=z/xs 
ELSE 
x_begin=z* (A%/4-r*COS (a-t) 
y_begin=z*(B%/4+r*SIN(a-t) 
xl=z*COS(t)/xs: !yl=z*SIN(t 
y2=z/COS(t)/ys: !x3=z*TAN(t 
x4=z/TAN(t) : ! x2=z/SIN (t) /x 
ENDIF 

ENDIF 

ENDPROC 



DEF PROCset_up2(t) 

IF SIN(t)*xs<l THEN 

!x_begin=z* (A%/4+r*SIN(b-PI) ) 
!y_begin=z* (B*/4+r*COS (b-PI) ) 
!xl=z/xs: !yl=0: !x2=z*64*256 
!x3=-z*64*256: !y2=z/ys: !x4 = 

ELSE 

IF COS(t)*ys>-l THEN 
!x_begin=z* (A%/4+r*SIN(b-PI/2) ) 
!y_begin=z* (B%/4+r*COS(b-PI/2) ) 
!xl=0: !yl=z/ys: !x2=z/xs 
!x3=0: !y2=-z«14: !x4=-z«14 
ELSE 

!x_begin=z*(A%/4+r*SIN(b-t) ) 
!y_begin=z* (B%/4+r*COS (b-t) ) 
!xl=-z*COS(t)/xs: !yl=z*SIN(t)/y 

!x2=z/SIN(t)/xs: <x3=-z/TAN(t) 
!y2=-z/COS(t) /ys: !x4=-z*TAN(t) 
ENDIF 

ENDIF 
ENDPROC 

DEF FN_plot (b) 

[OPT Z:MOV R4, Rl, LSR #16 



13230 
13240 
13250 
13260 
13270 
13280 
13290 
13300 
13310 
13320 
13330 
13340 
13350 
13360 
13380 
13400 
13420 
13430 
13440 
13450 
13460 
13470 
13480 
13490 
13500 
13510 
13520 
13540 
13550 
13560 
13570 
13580 
13590 
13600 
13610 
13620 
13630 
13640 
13650 
13660 
13670 
13680 
13690 
13700 
13710 
13720 
13730 
13740 
13750 
13760 
13770 
13780 



R4, R4, LSL #2 
R9, R4, LSL #6 
[R4, R0, LSR #16] 
[R12, R2, LSR #16 
R2, RIO:] 



ADD R4, 

ADD R4, 

LDRB R4, 

STRB R4, 

ADDS R2, 
IF a THEN 

[OPT Z:cmp r2, #320«16 

bpl fos(b):] 
ELSE 

[OPT Z:bmi fos (b) :] 
ENDIF :=0 

DEF FN_inlt_loop (x, y ) 



b += 1: 
[OPT 

. next_0 
ADD 
ADD 
BLT 
CMP 
CMP 
CMP 

. next_l 
SUB 
SUB 
MOV 

. next_ 
ADD 
ADD 
BLT 
CMP 
CMP 
CMP 

. next_2 
SUB 
SUB 



IF b=10 THEN 
Z : B raemory_2 
ADDS R0, R0, R6, LSL #8 
Rl, Rl, R7, LSL #8 
R2, R2, RIO, LSL #8 
next_l 

R0, #320«16:BGE nextJL 
Rl, #0:BLT next_l 

#256«16:BLT next_0 
R0, R0, R6, LSL #8 
Rl, R7, LSL #8 
R10, LSL #8 



Rl 
SUB 

Rl 

R2, R2, 
Rll, #7 
ADDS R0, 
Rl, Rl, 
R2, R2, 
next_2 
RO, 
Rl, 
Rl, 
SUB 
Rl, 



RO, R6, LSL Rll 
R7, LSL Rll 
RIO, LSL Rll 



#320«16:BGE next_2 
#0:BLT next_2 
#256«16:BLT next_ 

RO, RO, R6, LSL Rll 
Rl, R7, LSL Rll 
R2, R2, RIO, LSL Rll 
,next_2a SUBS Rll, Rll, #1 

BGT next_ 
. next_8a ADDS RO, RO, R6 
ADD Rl, Rl, R7 
ADD R2, R2, RIO 
BLT next_9 

CMP RO, #320«16:BGE next_9 
CMP Rl, #0«16:BLT next_9 
CMP Rl, #256«16:BLT next_8a 
.next_9 LDR R9, memory 

LDMIA R9, (R9-R12(:MOV R15, R14 
. memory EQUD memory_0 
. memory_0 EQUDO : EQUDO : EQUDO : EQUDO 
. memory_l EQUD : . memory_2 : ] 
ENDIF: [OPT Z 

LDR RO, memory :STMIA RO, (R9-R12 
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A REAL-TIME IMAGE SPINNER 




} 

13790 


MOVS RO, R9:MOVMI R0, #0 


13800 


MOVS Rl, R10:MOVMI Rl, #0 


13810 


MOV R2, Rll:MOV R3, R12:] 


13820 


IF a THEN 


13830 


[OPT Z:CMP R2, #320«16 


13840 


MOVPL R10, #1«16:BPL fosft 


13860 


CMP R2, #0:RSBMI R2, R2, 


13870 


MOVMI R2, R2, LSR #16 


13880 

2 

13890 


MULMI R9, R6, R2:MULMI R10, I 


MOVMI R2, #0:] 


13900 


IF x THEN 


13910 


[OPT Z:ADDMI R0, R0, R9 : ] 


13920 


ELSE 


13930 


[OPT Z:SUBMI R0, R0, R9 : ) 


13940 


ENDIF 


13950 


IF y THEN 


13960 


[OPT Z:ADDMI Rl, Rl, R10 


13970 


MOV R10, #1«16:] 


13980 


ELSE 


13990 


[OPT Z:SUBMI Rl, Rl, R10 


14000 


MOV RIO, #1«16:] 


14010 


ENDIF 


14020 


ELSE 


14030 


[OPT Z:CMP R2, #0 


14040 


MOVMI RIO, #SFF0O00O0 


14050 


ADDMI R10, RIO, RIO, LSR #i 


14060 


BMI fos(b) 


14070 


CMP R2, #320«16 


14080 


SUBPL R2, R2, #320«16 


14090 


ADDPL R2, R2, #1«16 


14100 


MOVPL R2, R2, LSR #16 


14110 


MULPL R9, R6, R2:MULPL R10, R' 


14120 


MOVPL R2, #320«16 


14130 


SUBPL R2, R2, #1«16:] 


14140 


IF x THEN 


14150 


[OPT Z: ADDPL RO, RO, R9 : ] 


14160 


ELSE 


14170 


[OPT Z:SUBPL RO, RO, R9 : ] 


14180 


ENDIF 


14190 


IF y THEN 


14200 


[OPT Z:ADDPL Rl, Rl, RIO 


14210 


MOV RIO, #SFF00OOOO 


14220 


ADD RIO, RIO, RIO, LSR #1 


14230 


ELSE 


14240 


[OPT Z: SUBPL Rl, Rl, RIO 


14250 


MOV RIO, #SFF000000 


14260 


ADD RIO, RIO, RIO, LSR #i 


14270 


ENDIF 


14280 


ENDIF 


14290 


[OPT Z 






#0 
R7, 



14300 
14310 
14320 
14330 
14340 
14350 
14360 
14370 
14380 
14390 
14400 
14410 
14420 
14430 
14440 
14450 
14460 
14470 
14480 
14490 
14500 
14510 
14520 
14530 
14540 
14550 
14560 
14570 
14580 
14590 
14600 
14610 
14620 
14630 
14640 
14650 
14660 
14670 
14680 
14690 
14700 
14710 
14720 
14730 
14740 
14750 
14760 
14770 
14780 
14790 
14800 
14810 



RSBS R9, RO, #320«16 

RSBPLS R9, Rl, #256«16 

CMPPL RO, #0:CMPPL Rl, #0 

BMI fos(b) 

CMP R3, #0«16:BMI fos(b) 

CMP R3, #256«16:BPL fos(b) 

LDR R9, workspacel 

MOV R12, R3, LSR #16 

ADD R12, R12, R12, LSL #2 

ADD R12, R13, R12, LSL #6 



DEF FN_r_A(a) 

[OPTZ : FN_init_loop (0,1) 

.repeat FN_plot(b) 

SUBS RO, RO, R6 

ADD Rl, 

ADDLT R15 

CMP Rl, 

LDR R9, 

LDMIA R9, 



. fos(b) 
STR 
BL 
LDR 
RSB 



Rl, R7 
R15, #4 

#256«16:BLT repeat 

memory 

{R9-R12} 
off_screen (b) 
RSB R6, R6, #0 
R14, memory_l 
next_0 

R14, memory_l 
R6, R6, #0 ~ 



.off_screen (b) 
):=0 

DEF FN_r_B(a) 

[OPTZ :FN_init_loop (1,0) 

.repeat FN_plot (b) 

ADD RO, RO, R6 

SUBS Rl, Rl, R7 

ADDLT R15, R15, #4 

CMP RO, #320«16:BLT repeat 

LDR R9, memory 

LDMIA R9, (R9-R12) 

B off_screen(b) 
.fos(b) RSB R7, R7, #0 
STR R14, memory_l:BL next_0 
LDR R14, memory_l:RSB R7, R7, (0 
.off_screen (b) 
]:=0 

DEF FN_r_C(a) : [OPTZ 

FN_init_loop(l,l) 
.repeat FN_plot(b) 

ADD RO, RO, R6 

ADD Rl, Rl, R7 
CMP R0,#320«16:ADDGE R15,R15,#4 
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14820 


CMP Rl, #256«16:BLT repeat 


14830 


LDR R9, memory 


14840 


LDMIA R9, {R9-R12} 


14850 


B off screen (b) 


14860 


. fos(b) STR R14, memory 1 


14870 


BL next 0:LDR R14, memory 1 


14880 


.off screen (b) 


14890 


]:=0 


14900 




14910 


DEF FN r D (a) : [OPTZ 


14920 


FN init loop (0,0) 


14930 


.repeat FN plot (b) 


14940 


SUB R0, R0, R6 


14950 


SUBS Rl, Rl, R7 


14960 


ADDLT R15, R15, #4 


14970 


CMP R0, #0:BGE repeat 


14980 


LDR R9, memory 


14990 


LDMIA R9, {R9-R12} 


15000 


B off screen (b) 


15010 


. fos(b) RSB R6, R6, #0 


15020 


RSB R7, R7, #0:STR R14, memory 1 


15030 


BL next 0:LDR R14, memory 1 


15040 


RSB R6, R6, #0:RSB R7, R7, #0 



15050 .off_screen(b) 

15060 ] :=0 

15070 : 

15080 DEF PROCscreen(x_centre,y_centre,x 

_si ze, y_si ze, bankno ) 

15090 ! output = workspace+80*1024*bank_n 

o 

15100 Iworkspacel - screen_adr 

15110 PROCrot(640-(x_centre-640)*1280/x_ 

size, 512- (y_centre-512)*1024/y_slze, 1280 

*1280/x_size,1024*1024/y_size,0,-l) 

15120 ENDPROC 

15130 : 

15140 DEF PROCtidy(no_of_banks) 

15150 DIM off_screen(20), fos(20) 

15160 DIM s% 8000+80*1024*no_of_banks:CL 

S 

15170 PROCasm(0,s%) :PROCasm(2, s%) 

15180 screen_adr=FNfind_screen 

15190 ENDPROC 

15200 : 

15210 DEF FNfind_screen:CALL screen 

15230 =!output 



Norwich Computer Services presents. . . 
The WIMP Template Editor 






G* 


C l 




WIMPs made Simple - design your own windows, icons, 
menus and sprites - completely freehand in a Wysiwyg format. 

Create WIMP templates which can easily be loaded from your 
own program - no need to set up endless data blocks!!!! 

Based on the original "Form Editor" program from Acorn 
Computers, modified and extended (with Acorn's permission!) 
by Adrian Look, author of the series of articles about the WIMP 
environment in our own "Archive Magazine". 

3.5" Disc: £9.50 (inc VAT + p & p) 

Norwich Computer Services, 18 Mile End Road, 
Norwich, NR4 7QY. (0603-507057) 


tf 
£ 


P 1 \ <> 


H 




Special price: £8 for RISC User subscribers 

(Please quote your subscription number.) 
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This month's Visuals are both from Julian Mudd. 



The first program needs 160K ol screen RAM 

-~>i & i- - 'J '■ , /J , , . '-/ , / .. 
y-i =3 i^yiiiiA £?'* 0- 'i-'i-~ ■/ ii ti 2 

This program runs a carousel of screens, 
cross-fading between each. We have published 
cross-faders in earlier issues, but this one 
creates a quite different effect. Instead of 
individual sectors of the screen swapping to the 
new image one by one until the change-over is 
complete, here a pixellated rippling effect is 
created in which large areas of the screen 
seem to hover in a state which simultaneously 
reflects aspects of both new and old images. 
This rippling continues for some time with 
subtle palette changes until the new screen 
finally clarifies. 




The effect is achieved by continually 
combining pixel information from the two 
screens and displaying the result. The routine 
works for any 80K screen, and obtains screen 
addresses legally, so that it will work equally 
well on 300 and 400 series machines. You will 
however need at least 160K of screen RAM, 
since shadow RAM is used. Finally a note 
about the screen images used by the program. 
They must be created using "SAVE as 
described in RISC User Volume 1 Issue 3 page 
9, though no palette information is needed. The 
names of the image files appear in DATA 
statements in lines 200 and 210 of the 
program. 
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REM >Sizzle 

REM Program Pixellated Fade 

REM Version A . 3 

REM Author J. H. Mudd 

REM RISC User November 1988 

REM Program Subject to Copyright 

MODE 13: OFF 

PROCscrnaddr 

PROCassemble 

REPEAT 
RESTORE 
REPEAT 
READ name$ 

IF name$o"End" OSCLI ("LOAD "+name 
-STR$~scrn2) : CALL swap 
UNTIL name$="End" 
UNTIL FALSE 

DATA Fractall,Droom,Fractal2 
DATA Droomend, Fractal3,SprayPIC 
DATA End 

DEFPROCscrnaddr 

DIM buff% &30 

!buff%=148 

buff%!4=7 

buff%!8=-l 

SYS "OS_ReadVduVariables",buff%,bu 



scrnl=buff%! (S10) 

scrn2=scrnl+buff%! (S14) 

ENDPROC 

DEF PROCassemble 

DIM code 1000 

pixelcount=0 :bytel=l 

byte2=2:nibblel=3 

nibble2=4 : destination=5 

source-6 : maxaddress=7 

link=14 

FOR pass=0 TO 2 STEP 2 

P%=code 

[OPT pass 

.swap LDR destination, screenl 

LDR source, screen2 
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460 


MOV 


maxaddress, source 




470 


MOV 


pixelcount, #5140000 




480 


.next 


LDRB bytel, [destination] 


490 


MOV 


nibblel,bytel,LSR #4 




500 


Af!D 


bytel, bytel, #S0F 




510 


LDRB 


byte2, [source] 




520 


MOV 


nibble2,byte2,LSR #4 




530 


AND 


byte2,byte2,#SOF 




540 


CMP 


bytel, byte2 




550 


ADDLO 


bytel, bytel, #1 




560 


SUBHI 


bytel, bytel, #1 




570 


CMP 


nibblel,nibble2 




580 


ADDLO 


nibblel,nibblel,#l 




590 


SUBHI 


nibblel,nibblel,ffl 




600 


ADD 


bytel , bytel , nibblel , LSL 


#4 


610 


STKB 


bytel, [destination] 




620 


ADD 


destination, destination, 


#SE7 


630 


ADD 


source, source, #&E7 




640 


CMP 


destination, maxaddress 




650 


SUBHS 


destination, destination, 


#S14 


000 








660 


SUBHS 


source, source, #514000 




670 


SUBS 


pixelcount, pixelcount, #: 




680 


BNE 


next 




690 


.exit 


MOV PC, link 




700 


. screenl EQUD scrnl 




710 


.screen2 EQUD scrn2 




720 


] : NEXT 




730 


ENDPROC 




$zt 


•Mi'i 


S-/ii)iii-i-> 






palette around the screen. For an interesting 
variant, try changing the last two lines to: 

210 ELLIPSE FILL 640-N%, 512-N%, 32, 

840,PI*N%/160 
220 UNTIL N%>1100 




Both versions of the program are included on 
the magazine disc. 



This very short program uses a narrow 
spinning ellipse to spread the 256 colour 
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REM >Swirl 

REM Program Colour Spinner 

REM Version A 0.2 

REM Author J.H.Mudd 

REM RISC User November 1988 

REM Program Subject to Copyright 

MODE 13: OFF 

DIM C%(7) 

C%(0)=0:CI(1)=1:C%(2)=2:C%(3)=3 

C%(4)=3:C%(5)=2:C%(6)«l:C%(7)-0 

N*=0 



REPEAT 

N%+=1 

A%=C%(N% MOD 8) 

B%=C%{ (Nl DIV 4 (MOD 8) 

C%=C%( (N% DIV 16) MOD 8) 

D%=C% ((N% DIV 64) MOD 8) 

GCOL C%+(D%«2) + (B%«4) 

ELLIPSE FILL 640,512,32, 



TINT A%«6 
840,PI*N%/ 



UNTIL FALSE 



Ea 
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DABS 

! PRESS 

Dabhand 
User 

News 



Dabs Press are pleased to 
announce the launch of 
ABC - the Archimedes 
Basic Compiler the fast 
and powerful way to write 
instant machine code! 
ABC takes programs 
written in BASIC V and 
transforms them into 
super-fast ARM machine 
code at a snap and ready 
for immediate action. No 
more are you limited by 
the time consuming inter- 
pretive process, or the 
need to be 'in' BASIC to 
run your programs. A 
simple * command is all 
that is required after 
passing through ABC. 
But the power of ABC 
goes much further - by 
including compiler 
directives it is possible to 
control the manner in 
which ABC compiles 
programs. For example, by 
placing just six simple 
REM statements at the 
start of the BASIC pro- 
gram ABC will automati- 
cally compile any BASIC 
program into a fully 
relocatable module for 
loading into the RMA and 
which can be used from 
any enviroment. 
These are just some of the 
features of ABC a program 
which can give you up to 
a 4000% speed increase. 
ABC was written by Paul 
Fellows - ex-Acorn Com- 
puters and head of the 
team which wrote the 
Arthur Operating System 
and is excellent value at 
just £99.95 inclusive. Do 
we need to say any more? 



Archimedes 

Basic Compiler 

THE FAST AND POWERFUL WAY TO WRITE MACHINE 
CODE ACHIEVING SPEED INCREASES OF UP TO AND 
OVER 4000%! 

The Archimedes Basic Compiler makes writing machine code programs and relocat- 
able modules as easy as ABC! Programs can be developed and written using the full 
range of BASIC V's error messages and reports and once fully working, run through 
ABC which transforms them into machine code, ready for immediate action. 
ABC is very easy to use and makes full use of Archimedes windows. Programs may 
be compiled from RAM or disc or using any combination of RAM and disc. 
Just look at some of the advantages of using ABC: 

• Speed: Compiled programs may run considerably faster than BASIC ones. As the 
benchmarks below show speed increases of up to 4000% are possible! 

• Syntax errors: Once a program has been compiled you can be sure that it is free of 
syntax errors. With the interpreter there is no guarantee of this. 

• Stand alone code :Theobject program which is produced by the compiler is entirely 
"stand-alone" and could forexamplebe used asa utility or library package by another 
application program. You can re-run the program or module later without cither ABC 
or ROM BASIC being present. 

• Language Specification: The compiler accepts BBC BASIC programs in their stan- 
dard tokenised form making it possible to compile many programsdirectly with little 
or no modification. 

• Data Types: Variables and arrays with up to eight dimensions of any of the three 
basic data types, integer, floating point and strings are supported. 

• Assembler: The compiler allows use of the in-line assembler within programs. 

• Compiler Directives: A wide range of compiler directives are built into ABC includ- 
ing simplecommandswhichallow modules to be compiled. Thesedirectivesarebuilt 
into REM statements so that the modules may be fully tested in BASIC first. 
Sample Benchmarks 

Benchmark 

CRAFSCRN 

INTMATH 

SIEVE -1651 primes 

TAK(18,12,6) 

FIBONACCI 

ACKERMAN(3,4) 

INT-ARRAY 

WHILE 

REPEAT-UNTIL 

FOR-NEXT 

ABC is supplied with two discs including a disc full of example programs and two 
manuals - a 150 page Reference Guide and User Guide. The price is just £99.95 
inclusive of VAT and postage and packing. See us at The Micro User Show! 

Archimedes Assembly Language: 368 pages devoted to programming the 
Archimedes in machine code. At £14.95 this is the only book which deals specifically 
with assembler on the Archimedes. Book and programs disc £21.95. 
C: A Dabhand Guide. The definitive guide to Con your Archie. 51 2 pages just £14.95. 

Free Catalogue and Ordering Details 

Write to us, phone us, or send us a mailbox and we will send you, free of charge, our 
information packed catalogue giving full details of all our products. 
Send cheques, POs, official orders to the add ress below, or quote your Access/Visa 
card number and expiry date. Credit card orders accepted by phone, letter or 
mailbox. P&P free in UK/BFPO. Elsewhere add £2.50 or £12 airmail. 
Dabs Press (RUN), 5 Victoria Lane Whitefield, Manchester, M25 6AL. 
Phone: 061-766-8423 Prestel: 942S76210 BT Gold: 72:MAG11596 
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Performance 


1.68 


0.84 


200% 


0.19 


0.02 


950% 


5.16 


038 


890% 


27.53 


0.78 


3530% 


49.43 


1.40 


3531% 


4 89 


0.12 


4075% 


1.84 


0J4 


541% 


13.11 


0.40 


3278% 


12.75 


037 


3446% 


2.15 


079 


741% 
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ANIMATING ARCHIE (Pant 4) 



■MM 



This month Lee Calcraft looks at Using Delta Files. 



The program needs 160K of screen RAM, and 
up to 250K of user RAM (see text). 



DELTA FILES 

The Delta File technique is ideally suited to 
saving and displaying animation screens. It 
works by taking advantage of the massive 
redundancy in most screens in any animated 
sequence. The principle involved is very 
simple. Instead of displaying a whole screen for 
each new frame, all you need to do is to display 
the differences between the new screen and 
the previous one - hence the name Delta. Thus 
a file containing the data for a whole frame of 
an 80 or 1 60K screen might only be a few bytes 
in length. The advantages of using such a 
system are three-fold. It uses less disc space to 
save each individual frame, less space in RAM, 
and screen writing can be performed at great 
speed, because only a small part of the screen 
will in most instances be involved. 

This is exactly the technique used in Acorn's 
famous "Molecule" animation. Of the 50 or so 
disc files which are used in the animation, only 
one is a full 80K screen dump. The remainder 
are Delta Files. Each of these contains 
information on any changes between the frame 
to which it refers, and the previous one. If the 
frames had been treated in the normal way as 
straight screen files, the display would have 
needed 4M bytes of storage, both on disc, and 
in RAM. The degree of saving of course 
depends entirely on the subject matter, and in 
many cases it is possible to create sequences 
measured in hundreds rather than tens of 
frames on a 1 M byte Arc. 

The code for handling Delta Files is really 
very simple, although it must be written in ARM 
assembler in order to achieve the necessary 
speed. To create a set of Delta Files on an Arc 
we could use the following sequence of 
operations: 

1. Create the first screen of the sequence. 

2. Save the whole screen to disc. 



3. Copy it to shadow RAM. 

4. Draw the second frame on screen. 

5. Create the first Delta File, based on the 
difference between the displayed screen 
and the shadow screen. 

6. Copy the displayed screen to shadow 
RAM. 

7. Draw the third frame on screen. 
And so on. 

To replay the sequence, all we need to do is 
to load in the first screen, then for each new 
frame, simply overlay the differences stored in 
the corresponding Delta File. To save the 
sequence, we can either save each file 
separately, as Acorn have done with the 
"Molecule", or save the whole data in a single 
disc file. 

AN ARC IMPLEMENTATION 

The accompanying program implements a 
Delta File system on the Arc. The example 
which it contains uses shadow screens in mode 
12, and thus requires 160K of screen RAM (use 
•Configure ScreenSize 20 on a 300 series), and 
some 250K of user RAM. However, it needs no 
sprite space, so if you are using a 305, you 
could configure sprite space to zero. In any 
event, if you do not have enough user RAM, 
just reduce the size of bsize% in line 100, and 
the program will compensate by ending the 
sequence early. Moreover, the program is 
mode independent, and can easily be adapted 
to use a screen mode of more modest memory 
requirements. 

The heart of the program is a short piece of 
assembler which contains four separate 
routines: one to initialise, one to copy screens 
to the shadow screen, one to create Delta Files, 
and one to display them. The program also 
contains a demonstration to show how the 
system works. If you run the program, the code 
will be assembled, then you will see a 
sequence of 156 screens created in around one 
minute. As the display indicates, this uses 
about 185K of RAM. To store these screens 
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conventionally would have taken over 12M 
bytes of RAM. 

Once the sequence of files has been 
created in RAM, pressing the space bar will 
start the display, while pressing any other key 
will stop the program and prompt you to save 
the assembled machine code for use next 
month. If you opt for the space bar, you should 
see a green planet recede from you against a 
starry blue sky. The display is perfectly smooth, 
and you will notice that background stars are 
"uncovered" as the planet recedes. This would 
have been difficult to organise using the sprite 
techniques discussed in earlier issues. If you 
time it, you will see that the display lasts for 
around seven seconds. This is achieved by 
using a double WAIT statement in the display 
routine. This gives a display rate of 25 frames 
per second. If you remove one of the WAIT 
statements, you will double the display rate, 
and halve the display time. 

LIMITATIONS 

The receding planet example used in the 
program could have been made more complex 
without significantly increasing the amount of 
RAM used. We could have put some detail on 
the planet's surface, and could have arranged 
for some of the "stars" to recede at the same 
rate as the planet. And other objects could also 
have been introduced. There are in fact few 
limitations to the use of this method. You 
obviously cannot run the sequence backwards 
without creating a new set of Delta Files for the 
purpose, but this will rarely be a problem. 

The only real restriction is on the degree of 
change from one screen to the next. There is in 
fact a break-even point at 50% of the screen 
size. Each difference recorded by the program 
takes two words of memory: one to give the 
screen location of the difference, and the other 
to give the screen word situated at that point. In 
other words the Delta File consists of a 
sequence of word pairs, the first giving a 
screen offset, the second the pixel data. In a 
normal screen save, the screen is stored as a 



sequence of pixel data held in 32 bit words. No 
screen reference points are required, since it is 
assumed that the first word refers to the start of 
the screen, and so on. 




It is an easy matter to create your own 
animation sequence, using the Delta File code 
supplied here. First you will need to replace the 
definition of PROCbackground with one of your 
own. The one in the example just clears the 
screen to blue, and displays a set of stars. 
Then you need to replace the three CIRCLE 
FILL statements with code to draw the objects 
to be animated. Note that two of these 
statements draw a circle of fixed size, while the 
third is used in a REPEAT loop to generate the 
full sequence. 

Finally, here are some technical notes on 
the machine code. You should only need this if 
you are going to use the Delta File generator in 
a different framework from that supplied. The 
code has four entry points corresponding to 
four separate routines: 

code Initialise screen parameters 
code+4 Copy screen to shadow 
code+8 Create next Delta File 
code+12 Display next Delta File 
The last two of these must be entered with A% 
holding the start address of the next Delta File 
in RAM. On exit these two routines return a 
pointer to the next file, or zero if the buffer has 
been exceeded. 
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10 REM 

20 REM Program 
30 REM Version 
40 REM Author 



DeltaFile 

Deltafile 

A 0.9G 

Lee Calcraft 



50 REM RISC User November 1988 

60 REM Program Subject to Copyright 

70 : 

80 MODE12 

90 DIM buff S30,code S200 
100 bsize%=s30000:DIM screens bsize% 
110 PROCassemble 
120 : 
130 MODE12:OFF 

140 CALL code :REM initialise 

150 REM 

160 REM Create Files 

170 PROCbackground 

180 CIRCLE FILL 640,-200,640 

190 CALL code+4 :REM Copy to shadow 

200 A%=screens :REM set to file start 

210 Y%=-200:R%=640 

220 count%=0 

230 REPEAT 

240 PROCbackground 

250 CIRCLE FILL 640,Y%,R% 

260 buff%=USR(code+8) :REM Write File 

270 A%=0 

280 CALL code+4 :REM Copy to shadow 

290 A%=buff% 

300 D%=l+R% DIV 50 

310 Y%+=D%+1:R%-=D% 

320 count%+=l 

330 UNTIL R%<=0 OR buff%=0 

340 IF buff%=0 THEN 

350 count%-=l:PRINT"RAM full" 

360 ELSE PRINT"RAM used ";buff %-screen 
s 

370 ENDIF 

380 PRINTcount*;" Screens" 

390 REM 

400 REM Display Routine 

410 VDU19, 0,24, 128, 128, 196:REM Border 

420 PRINTTAB(0,3) ; "Press space to Disp 
lay'" 

430 PRINT"Any other key to quit, and s 
ave code" 

4 40 IF GET=32 THEN 

4 50 REPEAT 

4 60 PROCbackground 



470 CIRCLE FILL 640,-200,640 

480 Z=INKEY(100) :A%=screens 

490 FOR N%=1 TO count% 

500 WAIT:WAIT 

510 IF A%>0 THEN A%=USR(Code+12) 

520 NEXT 

530 Z=INKEY(300) 

540 UNTIL Z<>32 AND Z>-1 

550 ENDIF 

560 ON:PRINT"To save machine code, use 



570 

~P% 
580 
590 
600 
610 
620 
630 
640 

RND(4) 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 



PRINT" *SAVE DeltaCode ";-code;" " 

END 

DEFPROCbackground 
Z%=RND(-100) 
GCOL4+128 : CLG : GCOL7 
FOR Z%=1 TO 30 

CIRCLE FILL RND (1280) , RND (1024) , 

NEXT 

GCOL128:GCOL2 

ENDPROC 

DEFPROCassemble 
REM Call code to initialise 
REM Call code+4 to copy current 
REM screen to shadow screen 

REM Call code+8 with A%=address 

REM creates next deltafile, and 

REM returns the updated address 

REM If zero is returned, the data 

REM is too long for the buffer 

REM Call code+12 loads a deltafile 
REM back to the screen. If zero is 
REM returned, RAM is exceeded 



scrnsize =1 : 
scrnlbase-2: 
scrn2base=3: 
scrnpnt =4 : 
scrnlword-5 : 
scrn2word=6: 
point =5: 
word =6: 
fileaddr =7: 



REM Size 
REM Base 
REM Base 
REM Ptr 
REM Word 
REM Word 
REM Ptr 
REM Word 
REM Curr 



of screen 
addr scrnl 
addr scrn2 

to scrn word 
from scrnl 
from scrn2 

for display 
for dsply 
addr in file 
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930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 



temp =8: REM Temp register 
endofbuff=9:REM End of buffer 

FOR pass=0 TO 1 

P%=code 

[ 

OPT pass*3 

B initialise 

B screencopy 

B screensave 

. screenload 

STMFD R13!, (R14) 

BL getparams 

MOV fileaddr,R0 

MOV R0,#0 

LDR point, [fileaddr] ,#4 

CMP point, #580000000 

BEQ scrnend 

-loadloop 

LDR word, [fileaddr], #4 

STR word, [scrnlbase, point] 

LDR point, [fileaddr] ,#4 

CMP point, #580000000 

BNE loadloop 

. scrnend 

MOV RO, fileaddr; First free addr 

LDMFD R13!, (PC) 

.screensave 

STMFD R13!, (R14) 

BL getparams 

MOV fileaddr, R0 

MOV R0,#0 

MOV scrnpnt,#0 

. scrngetloop 

LDR scrnlword, [scrnlbase, scrnpnt] 

LDR scrn2word, [scrn2base, scrnpnt] 

CMP scrnlword, scrn2word 

BEQ match 

STR scrnpnt, [fileaddr], #4 

STR scrnlword, [fileaddr] ,#4 

CMP fileaddr, endofbuff 

BHS saveend 

.match 

ADD scrnpnt , scrnpnt , # 4 

CMP scrnpnt, scrnsize 

BLO scrngetloop 

MOV temp, #580000000 



1420 STR temp, [fileaddr] ,#4 
1430 MOV R0, fileaddr ;lst free addr 
1440 .saveend 
1450 LDMFD R13! , (PC) 
1460 : 

1470 .screencopy 
1480 STMFD R13!, (R14) 
1490 BL getparams 
1500 MOV R0,scrn'2base 
1510 .copyloop 

1520 LDMIA (scrnlbase) !, (R5-R12) 
1530 STMIA (scrn2base) !, (R5-R12) 
1540 CMP scrnlbase, R0 
1550 BLO copyloop 
1560 LDMFD R13!, (PC) 
1570 : 

1580 .initialise 
1590 ADR R0,datal 
1600 ADR Rl,data2 
1610 SWI "OS_ReadVduVariables" 
1620 LDR R2, [Rl] 
1630 LDR R3, [Rl,#4) 
1640 ADD R2,R2,R3 
1650 STR R2, [Rl,#8] 
1660 MOV PC,R14 
1670 : 

1680 .getparams 
1690 ADR temp,data2 

1700 LDMIA (temp) !, (scrnsize, scrnlbase, 
scrn2base , endofbuff ) 
1710 MOV PC,R14 
1720 : 
1730 .datal 
1740 EQUD 7 
1750 EQUD 148 
1760 EQUD -1 
1770 : 
1780 .data2 
1790 EQUD \size 
1800 EQUD \base 
1810 EQUD \base+size 
1820 EQUD screens+bsize%-5100 
1830 ] :NEXT 
1840 ENDPROC 

Next month we will make use of the Delta 
File generator listed here in a mouse-driven 
free-hand animator. 

ran 
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SILICON VIS 

SOFTWARE FOR THE ARCHIMEDES & BBC 



ION 



SolidCAD 



ARC-PCB 




The ultimate 3D Draughting System tot Architectural design. Interior design, Engineering 
Design and Teaching CD7 Allows drawing in plan, front & side elevations and also directly 
m 3D view. Includes powerful zoom & pan options for precision draughting and surface 
definition tor creating solid colour objects. Also includes Sweep, Extrude & Macro 
tat titties for designing very complex objects easily Designs created with SolidCAD are 
compatible with the Realtime Graphics Language for high-speed flicker -tree animation 
The custom Archimedes version also performs smooth shading for realism. 
SnlidCADtArc) users can upgrade to the Realtime Solids Modellei (Arc) lor C40.00. 
£49.95 (ARC & BBC) 

REALTIME SOLIDS MODELLER 

The package includes both the sophisticated design environment of SolidCAD and the 
high speed animation capability of a Realtime Graphics Language (RGL} module 
developed in pure ARM Rise code for supercharged performance The package is ideal tor 
Architectural design. Interior design Engineering design & teaching CD T. The RGL 
module can be used to create standalone flicker tree animation of designs from your own 
programs Smooth shading is also performed tor realistic images. Through our in-house 
expertise m 3D Design and High-speed techniques, no other package can rival the design 
rnvronmenl & animation speed of the Realtime Solids Modeller 

£89.95 (ARC) 

REALTIME GRAPHICS LANGUAGE 

The Realtime Graphics Language rom provides a complete 3D Solids Wireframe 
animation system with 52 star commands and 3D Editors for designing ob/ects to animate 
from your own programs includes a 35,000 pixels sec line generator toi last 3D drawing 
•ales i ' Rotate Scale Orbit. Perspective and Turtlegraphics Also compatible with 
designs created with SolidCAD (BBC). 
£49.95 (BBC) 



SUPER-DUMP 

Ihe ultimate printer drive/ which takes advantage of the highest resolution capability of 
■ , i pson compatible printers to provide 1920 - 1 024 resolution. Images can also be 
lied positioned and previewed before printing. Fully compatible with SolidCAD 
Realtime Graphics Language. Gate Array design system & 3D CAD Animation system 
Your own graphics programs or other CAD packages can be made compatible with Super - 
Oumpby the addition of a lew simple commands An example program is included in the 



£15.95 (BBC), £24.95 (ARC) 



Presentation Manager 

The package provides an interat five environment to create edit and play back computer 
' mtrolled presentations for lectures and demonstrations Also handles graph plotting tor 

<*/-. It uset defined functions which can be incorporated within the 

■ ■■■ ;enlal 



£34.95 (BBC), £49.95 (ARC) 



SIGNAL HOUSE, LYON ROAD, HARROW 
MIDDLESEXHA1 2AG. TEL: 01 -422 2274 or 01 -861 2173 
FAX: 01-427 5169. TELEX: 918266 SIGNAL G. 

PT^ (Access/Mastercard/Eurocard accepted) 

All prices include VAT and Carriage (Overseas orders add £4). 
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The ultimate PCB design system 
developed specifically tor the Archimedes 
with a specification that cannot be 
matched. Includes Automatic routing. 
Rats-nesting. 8 layers. Surface mount 
capability. 0. 00 J resolution. 32 -32 
maximum board sue. On-line Help. Fast 
Zoom Pan/ Redraw. Text & Silkscreen 
facility. Variable Line Pad Text Grid sizes 
Part Libraries. Block Move Copy Rotate 
Mirror Erase options, and up to 300. 000 
components. For hardcopy. the system 
supports a large number of plotters and 
ordinary Epson compatible printers at very 
high resolutions (t 920 1024) of 240 dots 
inch tor near laser quality output. An entry- 
level ARC-PCB system (without auto- 
routing} is available tor £99.95 lAuto- 
rouling upgrade C 1 00). Enquire about our 
turnkey PCB design systems complete 
with Colour Archimedes and or plotters 
With prices from f 1 220 to C3909 tine VAT I. 

£795.00 (ARC) 



Rise BASIC 

Supercharge your Archimedes Basic 
programs by compiling them 
automatically into pure ARM Ftisc code 
with the RiscBASIC compiler . Features 
include Relocatable modules. Cross 
reference of all variables, functions, and 
procedures, Floating point and Integer 
support. Stand alone code generator 
Optimising compiler & Full runtime error 
handle; 



£99.95 (ARC) 



RiscFORTH 

A new 32-bit implementation ol the 
FORTH-83 standard, designed to take lull 
advantage of the ARM architecture 
Features include Multitasking. 
Optimising compiler, built-in ARM 
assembler with floating point mnemonics 
built-in Full screen Editor. File system 
interlace. OS calls suppoit. Floating point 
& Integer maths, WIMPstippnit Single 
step debugger Shadow screen tor 
documentation. Block manipulation. 
Dictionary & Vocabulary display Call 
finding ami n standalone code gem at 



£99.95 (ARC) 



SEE US ON STAND 34 AT THE MICRO USER SHOW 



PRESENTER 

AFFORDABLE PRESENTATION 
GRAPHICS FOR THE 

/{rchimedes 

PRESENTER is a truly professional graphics program which allows the user to create, modify, print 
out or photograph high quality colour displays of data in either bar, pie or line format. Data is entered 
either manually in spreadsheet fashion or can be imported from other spreadsheets or programs in 
comma separated format. PRESENTER makes full use of the Archimedes' WIMP environment and 
high resolution graphic modes and incorporates 3D displays, auto scaling axis, user definable layouts 
and multi-layer graphs. Screens may be saved for use with graphic packages like ARTISAN or 
graphic wordprocessors like 1ST WORD PLUS & GRAPHIC WRITER. PRESENTER can also be us 
ed with PIPEDREAM. 

At only £24.95 ex-VAT, PRESENTER is an invaluable extension to existing spreadsheets and word- 
processors. It is a must for all Archimedes' users. 
PRESENTER is available from all good Acorn dealers or direct from LINGENUITY. 

Please send me PRESENTER PACKS (3 £29.84 each inc VAT and P&P 

Payment Visa Access Cheque 

VISA 



Credit card number QJ_ ' j f ;"T" I [ I I I I I T 
Card Expiry Date 



Name (as on credit card) 
Address 



Send to LINGENUITY, Dept JT, P.O. Box 10, Halesworth, Suffolk IP19 ODX. 
Telephone orders accepted - ring 098 685 476 

Graphic Writer and Artisan are trademarks of Clares Micro Supplies; 1st Word Plus is a 

trademark of GST Holdings; Archimedes is a trademark of Acorn Computers Limited; 

Pipedream is a trademark of Coltonsoft Limited. 



[ingenuity 

■■■ %# Specialist Software ^ 
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Mike Williams examines Presenter from Lingenuify, another contender in the business 

graphics stakes. 



Last month in RISC User I reviewed Minerva's 
GammaPlot, a package for creating business 
graphics displays which I found both 
comprehensive and appealing in use. I was 
therefore interested to take a look at another 
package with similar aims. Presenter from 
Lingenuity, like GammaPlot, comes as a glossy 
package containing a 3.5" disc and manual, but 
here the slickness ends. The manual is a cheap 
looking and plain affair of just 21 printed pages. 
This fails to do justice to the content of the 
manual which explains most ideas simply, clearly 
and well. 











■ tuts (•-.>■ . 




Efititf: him 














...... ,.■ -Mi 





hi it iwmj 

*' 'till rwvirt 

j j J C»tal49ae 

Hi *<« 
2rt Hris 

. Cldf (iU 
Inter nation 

...foH 






JiUgJ* 




6f M R Erind B 
: Jsfl-Nl' ?H m 

. Rpr-JtJfl Ltt HI 

Ki-Ut 133 174 
W ta at :ie 


fir,™} C 
Hi 
MS 
W 

at 


tSMft : :. H 
Cu! rw 1 
Cut ec! 1 
Past! rM ■ 
P«te Ml ■ 





A point to note about Presenter from the 
outset is that the software makes full use of the 
Archimedes WIMP system. The screen displays 
as a result look good, but scrolling, where 
necessary, can be painfully slow. 

The initial screen display is the data entry 
screen (or window). This looks like a typical 
spreadsheet display with a potential for 25 rows 
by 9 columns of data, plus a legend for each row 
and another for each column, both user definable. 
Data may be entered into any cell from the 
keyboard, and the cursor can be set to move 
automatically to the next consecutive data entry 
position if required. Similarly the contents of any 
cell may be altered. 

The data entry window also allows the user to 
specify a title and subtitle for the resulting graph, 
and labels for the X and Y axes. The spreadsheet 
layout offers more potential than that used by 
GammaPlot, which allows no more than two 



columns of data, but in many other respects I feel 
that GammaPlot offers both more features and 
greater flexibility. 
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Pressing the menu button on the mouse at 
any time brings up the main menu on the screen 
with a choice of 10 options, including 'Quit' to exit 
from the package. Once into Presenter, there 
appears to be no way, though, of entering any 
star command. This I feel is an unfortunate 
omission. The first and most immediately 
interesting option allows for a choice of graph 
type. Presenter offers just three: bar chart, line 
graph and pie chart. Once a bar chart has been 
drawn, a further option allows a choice of 2D or 
3D bar chart. I find the range of choice 
disappointingly small - there are many other forms 
of data display which would be just as easy to 
implement, and which would add much to the 
variety and interest of the end result. There is also 
no facility for regression analysis or display of 
lines of best fit on scatter graphs. 

Once a graph has been drawn (in a window), 
the mouse may be used to bring up a further 
menu (slightly different for each of the three types 
of graph display). This controls such features as 
the choice of colours (from a predefined set - 
Presenter can use mode 12 or mode 20), the 
spacing and labelling of graduations on the axes, 
the thickness of bars or lines, and the position of 
legends and axis labels. A graph can also be 
saved to disc, or printed (a print option in the main 
screen menu offers a choice of Epson compatible 
printers, the Integrex 132 colour printer or the 
Plotmate A4SM or A3M plotters). 
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There are no facilities for rescaling or resizing 
graphs, and thus no way of building up a display 
of several graphs together as is possible with 
GammaPlot. In general, Presenter's facilities for 
enhancing and embellishing graphs are quite 
meagre in comparison. However, Presenter is 
simple to use, and its displays are certainly clear 
and easy to read. 

The main menu also provides an edit option 
with a number of functions which may be applied 
to the data entry sheets. Rows and columns may 
be inserted and deleted, and also copied and 
pasted back at alternative positions. A further 
important option is labelled 'Catalogue', and this 
gives a display of data files on disc. Files may be 
saved or loaded, and Presenter also has the 
ability to load in CSV files (comma separated 
values). This is a relatively standard format 
supported by many software packages running 
on a variety of machines. By this means, data 
from PipeDream, for example, may be output in 
CSV format, and then read into Presenter for 
display. 

Presenter is certainly easy to use, but I am 
sure that it would have benefitted by offering a 



much wider choice of graph styles (horizontal bar 
charts, clustered or segmented bar charts for 
example). There is also less control over the 
detail of graphs compared with GammaPlot, but 
then Presenter does make everything seem very 
simple for the user, with features such as scaling 
and labelling of axes (just two examples) all 
happening quite automatically. GammaPlot 
certainly offers many more features for 
embellishing and customising graphs once 
drawn, but it could be argued that such aids are 
little more than cosmetic. 

Overall, Presenter takes a simple, uncluttered 
approach to the task of displaying graphs, and 
this package may well appeal to many users at its 
comparatively low price. However, I feel that it 
could easily have achieved quite a lot more, and 
then presented a real challenge to Minerva's 
GammaPlot. Furthermore, I did not encounter the 
same sense of fun and excitement engendered 
by the latter, but that is something which you 
must decide for yourself. 

Presenter (£29.84 inc VAT and p&p) 

is supplied by Lingenuity, P.O.Box 10, Halesworth, 

Suffolk IPI9 0DX. Tel. (0986B) 5476 



"FIRST" 

ADVANCED STATISTICAL SYSTEM 

For Acorn Archimedes; BBC Models B, B+ and Master; 'Industry Standard" machines 
A powerful and practical tool for Research, Industry, Business, and Teaching 

Integrated, interactive, robust, fast, accurate, modular. Designed to facilitate data critique. 

Many data entry options. Full data management and formatted display. Extensive data transforms. 

Handles missing variables and data subset. Scatterplots, regression plots, function plots. 

Univariate statistics. Paired and unpaired t tests. Chisquare tests. Nonparametric methods. 

Unrivaled REGRESSION facilities eg weighted, through the origin, standardised. Full statistical information. 

Residuals, fitted and predicted values. Much more. Correlations. ANOVA. Contour plots of regressions. 

Regression DIAGNOSTICS - VIFs, influential points etc. Automatic warnings. 

ROBUST regression - many influence functions. Powerful NONLINEAR least squares 

Time Series, eg moving averages, exponential smoothing, causal models. 

One- Two- and Three-way ANOVA subsystems. Distributions generator. Histograms. Linear Calibration. 

Cluster analysis. Many other powerful analytical and descriptive features. Full utilities. 

Price E120-E180 (machine and version dependent). Special RISC USER discount available. 

There's far too much to describe here. Get full information now from: 
Serious Statistical Software, Lynwood, Benty Heath Lane, Willaston, South Wirral 164 1SD Tel. 051 327 4268 
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Here, to round off David Pilling's Super-Charged Disc Menu, are some 
notes on the colour palette. 



The version of the menu given last month 
contained instructions to give greater control 
over the colour palette. Here are some notes 
on how to define your own colours. Table 1 
gives a breakdown of the colour numbers used 
for the different parts of the display. Also 
included are the line numbers on which these 
colours are defined. 



to change colour 3 (the banner text colour) to 
yellow, use: 

2651 EQUB19:EQUB3:EQUB16:EQUB240 

2652 EQUB240:EQUB0 

The last 3 numbers define the red green and 
blue components of the colour respectively. 



Colour 


Function 


Line nos 





Filename Text 


2635/6 


3 


Banner Text 


2651/2 


4 


Option Text 


2653/4 


5 


Option Background 


2655/6 1 


7 


Directories Text 


2631/2 


8 


Files/Directories Bcgnd 


2640/50 


9 


Main Background 


2660/70 


10 


Banner Background 


2680/90 



Colour 


RGB Components 





144 





3 


240 


240 


4 


240 


240 240 


5 


208 


48 


7 


240 


240 240 


8 


128 


144 176 


9 





96 32 


10 





176 80 



To set up your own colours, all you have to 
do is to alter the definitions to give the required 
RGB components for each part. For example, 



Table 2. Suggested New Palette 

Table 2 gives a suggestion for an alternative 
set of colours. These give higher prominence to 
the main selection boxes, and a copy of this 
version of the menu is included on this month's 
magazine disc. 



HEALTH DATA 

The on-line health information database is now available for use off-line on the Archimedes 

Some of the most useful and relevant information from Healthdata is now available on disc for the 
Archimedes. Presented as videotext pages linked by a simple, menu driven structure the Archimedes 
version has the "look and feel" of accessing a remote database without the disadvantages of high 
telephone charges. 
Topics include: 

child health ■ vaccination • common ailments • vitamins ■ alcohol * radiation risks • dental treatment 
travel abroad • women's health • heart disease ■ contraception • AIDS ■ diet • sexually transmitted 
disease • hay fever ■ pollution • smoking • cystitis • pregnancy • using the NHS • drug abuse • cancer 
tests • choosing a doctor * back pain • sickle cell disease • thrush ■ food additives * blood pressure * 'flu 
glue sniffing * pre-menstrual syndrome • weight reduction. 

Help is included and the carousel feature displays a sequence of index frames. Details of where to go 
for further information or advice are given at the end of each section. There is a comprehensive index 
which allows subjects to be found easily. Healthdata is an invaluable reference for home, school or work. 
Healthdata will work on all versions of the Archimedes including the A305, A31 0, A41 and A440. It is 
supplied on a single 3.5" disc and network versions are also available. Price is just £14.95 or £24.95 
for Network version (No VAT}. Price includes postage and packing in UK (Overseas orders please add 
£2.50). Please send cheque payable to Healthdata to: Healthdata, 21 Vicars Close, London, E9 7HT. 
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Have you 
spent long hours struggling 
'with the programming complexities of the brillia 
Archimedes WIMPS system? 

With ARCHWAY that's all behind you. Now YOU can easily and quickly 
build multi-window programs with pop-up menus, icons, mouse control, 

etc. of a professional quality. 
ARCHWAY provides tools, bricks, mortar and a basic structure. YOU slot 

the final bricks into place and add finishing touches. 
A comprehensive suite of integrated tools lets you define and edit 
windows, menus, icons, dialogue boxes, mouse pointers, sprites, fill and 
line patterns, anti-aliased fonts, short cut keys and much more! You can 

import files (eg ARM machine code and music editor). 
The bricks include an extensive library of functions and procedures 
providing ready access to many of Archimedes' most powerful features. 
An in-depth user guide (300+ pages, ring bound) takes you gently step- 
by-step through a progressive series of program building examples with 
the emphasis on clarity. 

The ARCHWAY run-time package together with £.79.95 

script shells in BBC BASIC provide the structure. j nc |. VAT & p/p 

The complete system comes on 4*800k discs (3 tools & 1 run-time). You 
need 1M of RAM to run the tools. One disc drive is sufficient. 

SPECIAL INTRODUCTORY OFFER: No charge for upgrade to the 
extended RISC OS (Arthur 2) version we will release in 1989. 
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Programs to 
help you 

4 CLARENCE DRIVE, EAST GRINSTEAD, 

WEST SUSSEX RH19 4RZ Telephone (0342) 328188 

Cheques/POs/official orders or Access/Visa number and expiry date. 
24-hour 'phone for Credit Card orders. 
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Mike Williams has been trying out some new software on his Archimedes to good effect. 



Wherever an Archimedes is on show you 
will often see the machine displaying a carousel 
of pictures. In many cases a variety of fancy 
effects will be used to change from one picture 
to the next, or to distort the picture on the 
screen. If you have watched these displays with 
admiration and maybe a tinge of envy then the 
answer is at hand in the form of Archeffect. 

Archeffect, supplied on disc, is a relocatable 
module. Once this has been installed, star 
commands will allow you to set up your own 
impressive screen displays. The disc also 
contains a number of demonstrations and 
sample screen images for you to practice with. 
The software is accompanied by a well 
produced 40 page manual, though it sometimes 
lacks clarity and precision in its descriptions. 

It would be pointless to attempt to describe 
all the commands in detail here, so I will 
concentrate on the main features. One 
characteristic that many commands have in 
common is that they rely on a screen image 
being stored somewhere in memory. Such a 
screen image could have been created and 
saved by another program, and four 
Mandelbrot displays are provided for you to 
use. Once a screen image has been loaded 
into memory, it can be transferred to the screen 
(in effect to screen memory) in a variety of 
ways. 

Some of the star commands available 
control the way in which the image is 'put' on 
the screen, expanding outwards from the 
screen centre, rolling vertically down the screen 
or being pulled into place from one corner. 
Here, the final image is an accurate 
reproduction of that stored in memory. 

Other star commands distort the image as it 
is transferred to the visible screen, by changing 
its size for example and positioning it wherever 
desired. Other forms of distortion allow the 
image to appear as though 'draped' over a solid 
sphere, or over the surface of a wine glass. 
Some of these commands can be used to good 
effect within loops so that a distorting image 



can seem to pass through a variety of 
intermediate shapes. 

The module also has the facility to store up 
to five images in a data format within its own 
memory space. Each stored image can be 
distorted by a set of parameters, and the data 
saved to disc or reloaded from disc as required. 
Thus as well as the predefined distortions, the 
user can contrive some of his own. 




Archeffect also provides some star 
commands for using anti-aliased fonts, and a 
font called blocky is supplied on disc. You can 
also use Acorn's anti-aliased fonts supplied on 
the Archimedes Welcome disc. Archeffect's 
commands allow for a choice of font (and size), 
and for printing in the chosen font on the 
screen. Although useful in their own right, the 
provision of these commands is a little curious 
in the context. 

IMAGE DESIGNER 

The manual states that the purpose of this 
separate utility program is to design screen 
images, but its facilities are so limited in this 
respect that you would be well advised to use 
other means for this purpose. What the 
program does do is allow you to select any one 
of five internally saved designs, and then save 
this to disc for use by the various *IMAGE 
commands. These are the ones which allow a 
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user defined distortion to be applied to a screen 
image (as mentioned already). The controlling 
menu for this also allows star commands to be 
entered so there is some useful purpose to be 
served. 

THE MANUAL 

Although clear and glossy, I found the 
manual at times confusing. This is particularly 
so with regard to the use of decimal or 
hexadecimal numbers in commands, and in the 
use of space or comma to separate parameters 
(commas alone cause errors). The use of a 
typeface with a rather peculiar rendering of the 
ampersand (&) character is also confusing. 

I would like to have seen some more 
extended examples, particularly the use of the 
various star commands within loops which 
would better illustrate the potential of this 
software. Some suitable illustrations in such a 
highly graphics oriented package would not 
have come amiss either. 



If you want to package up your screen 
displays with slick routines, then Archeffect 
certainly has a lot of potential, and it is 
comparatively cheap. Given the huge interest in 
graphics on the Arc, I would like to see this 
package developed and updated to keep in 
step with some of the highly stunning screen 
effects that have been seen recently on the 
Archimedes, and I hope the suppliers may still 
consider a mark II version. As it stands I would 
rate Archeffect good value at its price, but in 
the end the results will depend as much on 
your imagination and skill as they do upon this 
software. 
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FX 

VISUAL EFFECTS 
MODULE 



-| 



ARCHEFFECT is an easy to use image manipulation package. By the use of simple "Commands 

you will be able to quickly produce spectacular visual effects, similar to those seen on TV. It 

also allows for the easy use of fonts. 

The module has been specifically designed for use in the high resolution graphics modes to 
take full advantage of the potential of the Archimedes. 

In addition to the many image manipulation commands the module provides an alternative 

method of using the powerful font manager provided on the Archimedes, bypassing the 

complex SYS 1 commands previously necessary. 

ARCHEFFECT - £24.95 inc VAT and p&p 

Please send me copies of Archeffect at £24.95 each. 

I enclose a cheque or postal order for the sum of '£. 

Please make cheques or postal orders payable to FX. 
FX, 207 South Avenue, Southend-on-Sea, Essex SS2 4HT. 

(For further details send SAE) 
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RISC USER TOOLBOX (5) 



David Spencer adds a scrolling disassembler to the RISC User Toolbox. 



An essential tool to any assembly language 
programmer is a disassembler to enable 
machine code programs to be examined. This 
month's addition to the RISC User Toolbox 
provides just that. As with the previous 
additions, the listing given here is just a set of 
lines to add to the existing program from the 
first four parts. Before adding the new lines 
make sure that the existing program has not 
been renumbered. Special care is needed with 
this listing because many of the lines either 
replace existing ones or slot between them. 

As many of the changes are quite subtle, it is 
probably better to type in the new lines, save 
them as a spooled file (using 'SPOOL), and 
then load in the original program and append 
the new lines with "EXEC. See the User Guide 
for more details of *SPOOL and *EXEC. Once 
all the new lines are added save the program 
under a different name, and run it to assemble 
the new Toolbox module. The assembled 
module is loaded as in previous months. The 
disassembler uses a SWI call contained within 
the Debugger module, and therefore this must 
be present for it to work properly. 



Another feature of the disassembler is the 
ability to display floating point (and other co- 
processor) instructions in a different colour, or 
to treat them as illegal instructions. The current 
state is shown by the letter T in the status line. 
A lowercase letter means treat floating point 
instructions as illegal, while upper case means 
display them, but in yellow rather than green. 
You can change between the two settings using 
function key F12. 
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The disassembler can be called up in two 
ways. First, you can use "MEDIT to start the 
memory editor and then switch to the 
disassembler, or secondly, you can start the 
disassembler directly using: 

*DISASS <address> 
where <address> is the address in hex at which 
disassembly will start. For example: 

*DISASS 8F00 

Both these methods are essentially the same, 
as once started you can flick between the 
memory editor and disassembler displays by 
pressing the Insert key. 

From within the disassembler, memory can 
still be altered, and the same controls apply as 
those used for the memory editor. You will also 
notice that the different areas of both memory 
editor and disassembler displays are coloured. 
This makes them easier to read. 



332 EQUS "Disass":EQUB 

333 ALIGN:EQUD disassc:EQUD S10001 

334 EQUD dissyn:EQUD dishlp 

1403 .dishlp EQUS "*Disass invokes the 
memory editor at the given address with 
a disassembler display ." :EQUB 13 

1404 .dissyn EQUS "Syntax: Disass <addr 
ess>":EQUB 0: ALIGN 

2430 BL valadd:BL swilO 
2450 BL frange:ADR R5,mtxt 

2658 EQUS "Disassemble" :EQUB 

2659 EQUS "DisassLine":EQUB 

2660 EQUS "SetMode":EQUB 
3714 B swi8:B swi9:B swilO 

4801 STMFD R13!, {R6( :LDR R6, [R12,#28] 

4802 CMP R6,#0:MOVEQ R6,#15:MOVNE R6,#3 
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4810 SUB R0,R0,#1:AND R5,R0,R6 

4820 CMP R5,R6:BEQ curup2 

4829 LDMFD R13! , (R6) 

4861 STMFD R13 ! , (R6 } :LDR R6, [R12, #28] 

4862 CMP R6,#0:MOVEQ R6,#15:MOVNE R6,#3 
4870 AND R5,R0,R6:CMP R5,#0 

4880 BEQ curdown2 : LDMFD R13 ! , (R6) :MOV P 
C,R14 

4891 STMFD R13 ! , (R6) : LDR R6, [R12, #28] 

4892 CMP R6,#0:MOVEQ R6,#16:MOVNE R6,#4 
4900 ADD R0,R0,R6:CMP R0,R3 

4910 SUBCC R6,R6,#1:BCC curdown2:SUB R0 
,R0,R6 

4919 LDMFD R13! , (R6) 

4940 STMFD R13!, (R0-R1,R14) 

4955 ADD R6,R6,#l:MOV R1,#15:MUL R6,R1, 
R6 

4960 ADD R0,R0,R6:CMP R0,R3 

5020 LDMFD R13 !, {R0-R1, R14} : LDMFD R13!, 
(R6) :MOV PC,R14 

5030 .curup STMFD R13 ! , (R6) :LDR R6, [R12 
,#28] 

5031 CMP R6,#0:MOVEQ R6,#16:MOVNE R6,#4 

5032 CMP R0,R6:LDMCCFD R13 ! , (R6) :MOVCC 
PC,R14 

5040 SUB R0,R0,R6:CMP R0,R2:SUBCS R6,R6 
,#1:BCS curup2 

5050 ADD R0,R0,R6: LDMFD R13 ! , {R6} :MOV P 
C,R14 

5060 . curup2 : STMFD R13 ! , {R0-R1, R14 ) 

5075 ADD R6,R6,#l:MOV R1,#15:MUL R6,R1, 
R6 

5080 SUBS R0,R0,R6:BMI curup25 

5150 LDMFD R13 ! , {R0-R1, R14) 

5151 LDMFD R13 ! , {R6) :MOV PC,R14 

5190 .prtlinex STMFD R13 ! , {R0-R1, R14) 

5191 LDR Rl, [R12,#28] :CMP R1,#0:LDR Rl, 
[R13,#4] 

5192 BICNE R0,R0,#3:BLNE disass 

5193 LDMNEFD R13 ! , {R0-R1, PC( 
5210 LDMFD R13! , {R0-R1,PC} 
5221 LDR Rl, [R12,#32] 

5250 ADD Rl,R12,#64:MOV R2,#10 
5310 .addone SWI sill: SWI S108:SWI "OS_ 
WriteO" 
5332 SWI 6111:SWI &109 
5340 .prtloop:ADD R1,R12,#64 
5392 SWI S111:SWI &10A 
5490 .prtscr STMFD R13 ! , {R0-R5, R14 ) 



5491 LDR R5, [R12,#28] : CMP R5,#0 

5492 MOVEQ R5,#16:MOVNE R5,#4 

5500 SWI S11E:SUB R4, R5, #1 : BIC R0,R0,R4 

5505 MOV R4,#15:MUL R4,R5,R4 

5510 SUB R0,R0,R4:MOV R4,#31 

5590 .prtscr3 CMP R5,#4:BLEQ disass:BEQ 

prtscr4:BL prtline 

5610 BEQ prtsCr5:ADDS R0,R0,R5 

5670 LDMEQFD R13 ! , {R0-R5, PC) " 

5711 LDR R2, [R12,#28] : CMP R2,#0 

5712 MOVEQ R2,#15:MOVNE R2,#3 

5720 SWI S11F:AND R0,R0,R2:CMP R1,#0 

5735 ADR R3,offtab:LDR R2,[R12,#28] 

5736 ADD R3,R3,R2,LSR #3:ADD R3,R3,R1 
5740 LDRB R3, [R3]:ADD R0,R0,R3 

5761 SWI S111:CMP R3,#0:SWIEQ S10A:SWIN 
E S109 

5841 .off tab EQUB 11:EQUB 60 

5842 EQUB 10:EQUB 23 
5881 STR Rl, [R12,#32] 

5896 AND R6,R1,#16:STR R6, [R12,#28] 

5897 AND R6,R1,#8:STR R6, [R12,#36] 

5981 MOV R0,#221:MOV R1,#SC0 

5982 BL byteO:STRB Rl, [R12,#9] 

6071 CMP R5,#SCD:LDREQ R5,[R12,#28] 

6072 EOREQ R5, R5, #16:STREQ R5, [R12,#28] 

6073 BLEQ prtscr:BEQ keydone 

6074 CMP R5,#SCC:LDREQ R5, [R12,#36] 

6075 EOREQ R5,R5,#8:STREQ R5, [R12,#36] 

6076 BLEQ prtscr: BEQ keydone 

6170 BNE c5:LDR R5,[R12,#28] 

6171 CMP R5,#0:BICEQ R0,R0,#15 

6172 BICNE R0,R0,#3:B keydone 

6180 .c5 CMP R5,#S8D:BNE c6 

6181 LDR R5, [R12,#28] :CMP R5,#0 

6182 ORREQ R0, R0, #15 : ORRNE R0,R0,#3 

6183 B keydone :.c6 CMP R5,#S8E 

6190 BNE notdn:LDR R5, [R12,#28] 

6191 CMP R5,#0:ADDEQ R5,R0, #16*31 
6200 ADDNE R5,R0,#4*31 

6240 LDR R5, [R12,#28] : CMP R5,#0 

6241 MOVEQ R5, #16*31 :MOVNE R5,#4*31 

6242 SUBS R5,R0,R5:BCC keydone 

6541 MOV R0,#221:LDRB R1,[R12,#9] 

6542 BL byteO 

6550 LDR Rl, [R12,#32] :AND R1,R1,#1 

6551 LDR R4, [R12] : ORR R1,R1,R4 

6552 LDR R4, [R12,#24] :ORR R1,R1,R4,LSL 
#2 

6553 LDR R4, [R12,#36] : ORR R1,R1,R4 
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6554 LDR R4, [R12, #28] :ORR R1,R1,R4 10950 

6555 SWI S111:SWI S107 10960 
6650 ADD R1,R1,#1:CMP R1,#68:BNE stl 10970 
6680 CMP R1,#68:BNE st2 10980 

6690 .st3 LDR RO, [R12, #28] : CMP R0,#0 10990 

6691 BNE st4:SWI &120:B st5 11000 

6692 .st4 LDR R0, [R12,#36J : CMP R0,#0 11010 

6693 MOV R0,#ASC"F":ORREQ R0,R0,#S20 11020 

6694 SWI "OS_WriteC" 11030 

6695 .St5 SWI S120:LDR R0,[R12]:CMP R0, 11040 
#0 11050 

7350 BL swilO:ORR R1,R1,#1 11060 

7700 BL swilO:ORR R1,R1,#1 11070 

9610 BL swilO 11080 

10600 .swilO STMFD R13 ! , {R0-R2,R14 } 11090 

10610 SWI S116:SWI 510C:ADR Rl,coldat 11100 

10620 .swil02 LDR R2, [Rl ] , #4 :CMP R2, #0 11110 

10630 LDMEQFD R13 ! , (R0-R2, PC) 11120 

10640 SWI &113:AND R0,R2,#SFF 11130 

10650 SWI "OS_WriteC":SWI S110 11140 

10660 MOV R2,R2,LSR #8:AND R0,R2,#SFF 11150 

10670 SWI "OS_WriteC":MOV R2,R2,LSR #8 11160 

10680 AND R0,R2,#SFF:SWI "OS_WriteC" 11170 

10690 MOV R0,R2,LSR #8:SWI "OS_WriteC" 11180 

10700 B swil02 11190 

10710 .coldat EQUB 8 11200 

10720 EQUB 0:EQUB 240:EQUB 240 11210 

10730 EQUB 9 11220 

10740 EQUB 240:EQUB 240:EQUB 240 11230 

10750 EQUB 10 11240 

10760 EQUB 240:EQUB 240:EQUB 11250 

10770 EQUB 11 11260 

10780 EQUB 16:EQUB 240:EQUB 64 11270 

10790 EQUB 12 11280 

10800 EQUB 240:EQUB 0:EQUB 240 11290 

10810 EQUB 13 11300 

10820 EQUB 240:EQUB 64:EQUB 11310 

10830 EQUB 14 11320 

10840 EQUB 220:EQUB 220:EQUB 220 11330 

10850 EQUB 15 11340 

10860 EQUB 220:EQUB 220:EQUB 220 11350 

10870 EQUD 11360 

10880 .swi8 STMFD R13!, (RO, R3-R6, R14 ) 11370 

10890 MOV R0,#18:MOV R6,R1:ADR Rl, debug 11380 

10900 SWI "XOS_Module":SUB R5,R3,R6 11390 
10910 ADRVS Rl,undef :LDRVS R2,undl :LDMVS 11400 

FD R13!, (R0,R3-R6,PC) :LDR R0,[R13] 11410 

10920 SWI "Debugger_Disassemble" 11420 

10930 STMFD R13!,{R1-R2) 11430 

10940 ,swi82 LDRB R4, [Rl],#l 11440 



CMP R4,#0:LDMEQFD R13!,(R1-R2) 

LDMEQFD R13 ! , {RO, R3-R6, PC} * 

CMP R4,#ASC"#":ADDEQ R1,R1,#1 

CMP R4,#ASC"S":BNE Swl82 

MOV R3,R1:M0V RO , # 1 6 

SWI "OS_ReadUnsigned" 

LDR RO, [R13,#8] :SUB R0,R2,R5 

BIC R0,R0,#SFC000000:MOV R1,R3 

LDRB R4, [R1,#8J :MOV R2,#10 

SWI "OS_ConvertHex8" 

STRB R4, [Rl] :B swi82 

.debug EQUS "Debugger": EQUB 

.swi9 STMFD R13 ! , {R0-R1, R3-R7,R14) 

STMFD R13! , (R2) 

ADD R3,R12,#128:MOV R4,#S11 

STRB R4, [R3] ,#l:MOV R4,#8 

STRB R4, [R3] ,#l:MOV R4,#32 

STRB R4, [R3] : STRB R4, [R3,#l] 

STRB R4, [R3,#2] : STRB R4,[R3,#3] 

LDMFD R13,(R2):ADD R0,R0,R2 

TST Rl,#l:MOV R1,R3 

MOV R2,#10:BNE swi92 

ADD R1,R1,#4:SWI "OS_ConvertHex4" 

B swi93 

.swi92 SWI "OS_ConvertHex8" 

.swi93 ADD R3,R3,#8 

STRB R4, [R3] ,#1:STRB R4,[R3],#1 

MOV R4,#S11:STRB R4,[R3],#1 

MOV R4,#9:STRB R4, [R3],#l 

MOV R5,#4:LDR R6,[R13,#4] 

.swi94 LDRB RO, [R6] ,#1 

MOV Rl,R3:MOV R2,#10 

SWI "OS_ConvertHex2":MOV R4,#32 

STRB R4, [R3,#2] :ADD R3,R3,#3 

SUBS R5,R5,#1:BNE Swi94 

STRB R4, [R3] ,#1 

MOV R4,#S11:STRB R4,[R3],#1 

MOV R4, #10: STRB R4,[R3],#1 

MOV R5,#4:LDR R6,[R13,#4] 

.swi95 LDRB RO, [R6],#l 

CMP R0,#32:MOVCC R0,#ASC"." 

CMP R0,#127:MOVCS R0,#ASC"." 

STRB RO, [R3] ,#1:SUBS R5,R5,#1 

BNE swi95:MOV R4,#32 

STRB R4, [R3] ,#1:STRB R4, [R3] ,#1 

LDMFD R13! , (Rl) : LDR RO, [R13] 

ADD R1,R0,R1:LDR RO, [RO] :BL Swi8 

MOV R4,#Sll:STRB R4,[R3],#1 

LDMFD R13, {R0}:LDRB RO, [R0,#3] 

AND R0,R0,#15:CMP R0,#12:BCC swi96 
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11450 CMP R0,#15:BCS swi96:LDR R5, [R13,# 11670 

4] eC" 

11460 TST R5,#8:MOVNE R4,#12:BNE swi97 11680 

11470 ADR Rl,undef :LDR R2,undl 11690 

11480 .swi96 LDR R4, [Rl] :ADR R5,undef 11700 

11490 LDR R5, [R5]:CMP R4,R5 11710 

11500 MOVEQ R4,#13:MOVNE R4,#ll 11720 

11510 .swi97 STRB R4,[R3],#1 11730 

11520 .swi98 LDRB R4,[R1],#1 11740 

11530 STRB R4, [R3],#l:SOBS R2,R2,#1 11750 

11540 BNE swi98:MOV R4,#&11 11760 

11550 STRB R4, [R3],#l:MOV R4,#7 11770 

11560 STRB R4, [R3],#l:MOV R4J0 11780 

11570 STRB R4, [R3],#1:ADD R2,R12,#128 11790 

11580 LDMFD R13!,{R0-R1,R3-R7,PC}" 11800 

11590 .undef EQUS "Undefined instruction 11810 

":EQUB 11820 

11600 .undefe ALIGN 11830 

11610 .undl EQUD undefe-undef 11840 

11620 .disass STMFD R13! , {R0-R2,R14} 11850 

11630 LDR Rl, [R12,#32] :BIC R1,R1,#8 PC} 

11640 LDR R2, [R12,#36] :ORR R1,R1,R2 11860 

11650 LDR R2,[R12,#12] 11870 

11660 BL swi9: .disass2 LDRB R0,[R2],#1 11880 



CMP R0,#0:BEQ disassl:SWI "OS_Writ 

B disass2: .disassl MOV R0,#134 

SWI "OS_Byte":RSB R1,R1,#80 

.disass3 SWI S120:SUBS R1,R1,#1 

BNE disass3:LDMFD R13 ! , {R0-R2,PC} A 

.disassc 

LDR R12, [R12] 

STMFD R13!, (R14) :MOV R1,R0 

MOV R0,#16:SWI "OS_ReadUnsigned" 

MOV R0,R2:MOV R1,R2 

BL valadd:BL swilO 

BL f range :ADR R5,dtxt 

MOV Rl,#17:MOV R4,#0 

.disassc2 

STMFD R13!, {R2-R5} :BL swiO 

MOV R6,R2:LDMFD R13!,{R2-R5} 

CMP R6,#27:SWI SllF 

SWI &100:SWI SllF 

BNE disassc2:SWI &10A:LDMFD R13!,{ 



.dtxt 

EQUS "Disassembler" 

EQUB 



EH 



DIGIT 



Image Analysis Software for measurement 

from video captured by the 

Watford Video Digitiser, or from photographs, 

drawings and maps traced with a high res 

digitiser tablet. Count and measure length, 

width, area, perimeter, Feret diameters, C of G, 

shape factors etc. 

Store, print and edit digitised outlines and 

measurements, and plot results as histograms 

with mean and standard deviation. 

Disc, manual and lead for tablet.£150. 

Also available: 3D reconstruction, 

2D distribution and graph reading software. 

Details from: 

Dr. B.P.Hayes, 

Institute of Ophthalmology, 

Judd Street, London WC1H 9QS. 

Tel. 01-387 9621 ext. 224 
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a simPLE cusTomisED inpuT FuncTion 



by Lee 

The simple function listed here gives the user 
a little more flexibility than is offered by Basic's 
INPUT function. Its chief merit is that it allows you 
to specify how many characters may be input. 
Basic's INPUT function always allows up to 238 
characters. This is often inconvenient, since it 
means that input handling cannot be foolproof, 
and if someone leaves a key pressed down, text 
will be printed all over the place. 

The function FNinput allows the programmer 
to specify the maximum length of string which will 
be accepted. Entries longer than this cause a 
beep. You can also specify the range of ASCII 
characters that the routine will accept, although 
there is a snag with this. The SYS call used By 
the function chooses to echo all characters input, 
even those out of range, with the result that there 
is no restriction on the number of these 
characters written to the screen, and the main 
advantage of the routine is lost. 

As you can see, the function FNinput has four 
parameters. The first two are the lowest and 
highest ASCII characters accepted for input. The 
third is the maximum number of characters 
allowed, and the fourth is a flag specifying 
whether the input should be treated as numerical 
or string. It should be set to TRUE for a string. If 
you are using the function in your own program, 
you will also need to reserve a small area of RAM 
as a text buffer, as we have done in line 60. 



Calcraft 

The accompanying program demonstrates 
how the routine works. It requests two inputs - a 
string and then a numerical value - and then 
prints them out. The maximum lengths are set at 
20 and 6 respectively, and you can easily check 
the effect of exceeding these. When you are 
typing in the routine, be careful with the commas 
in the OS„ReadLine parameters, especially the 
ones before buff% and len%. Incidentally on exit 
from the function the variable len% is 
automatically set to the length of string supplied 
by the user. 

10 REM >UsrInput 

20 REM Customised INPUT using 

30 REM SYS OSReadLine 

40 REM by Lee Calcraft 

50 : 

60 DIM buff% S100:REM Reserve RAM 

70 MODE12 

80 PRINT"Customised INPUT Function"' 

90 PRINT"String please "; 
100 string$-FNinput (32, 126, 20, TRUE) 
110 PRINT 'strings 
120 : 

130 PRINT' '"Now a number "; 
140 value-PNinput (32, 126, 6, FALSE) 
150 PRINT'value 
160 END 
170 : 

180 DEFFNinput (lochr%,hichr%,maxlen%, t 
ext) 

190 SYS "OSReadLine", buffi, maxlen%,lo 
chr%,hichrl TO , lenl 

200 IF text:=$buff% ELSE =VAL(Sbuff%) 
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BEEBUG Ltd 

Dolpin Place, Holywell Hill, St. Albans, 

Herts AL1 1EX 

Tel. (0727) 40303 
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EXPANSION CARDS 

FOR THE 

ACORN ARCHIMEDES 

COMPUTER SYSTEM 



IEEE488 INTERFACE a full implementation 
of the standard for automatic test and 
measurement systems 

16 BIT PARALLEL I/O two 16 bit input or 
output ports with handshake lines for digital 
control applications 

DUAL RS423 SERIAL INTERFACE for 

communicating with two additional RS423 or 
RS232 devices eg printers, plotters, 
instruments, etc 
12 BIT ANALOGUE I/O m development 

All the above high performance expansion cards are 
supplied with high level software for ease of use and a 
comprehensive user guide. 

Take advantage of Intelligent Interfaces' expertise and 
purchase a complete Archimedes Computer System. 

Officially appointed Acorn Scientific Dealer. 
Intelligent Interfaces Ltd 

43b Wood Street 

Stratford-upon-Avon 
Warwickshire 

CV37.6JQ 

Tel: 0789 415875 

Telex: 312242 MIDTLX G 
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This Month Lee Calcraft investigates the Barrel Shifter,-and Shift and Rotate Operations. 



The Barrel Shifter is a special piece of 
hardware within the ARM processor chip for 
performing shift and rotation operations. It is 
separate from the Arithmetic-Logic Unit (or 
ALU), which performs the CPU's arithmetical 
and logical operations. This means that the 
barrel shifter can be used without detracting 
from the speed of the ALU. In fact, Acorn has 
placed the barrel shifter in the path of one of 
the data inputs to the CPU. In consequence, all 
of the ARM'S logical and arithmetic instructions 
have an option to shift or rotate the right-hand 
operand. 

Taking the ADD instruction as an example, 
if we wish to add the contents of R2 to R1 , and 
place the result into RO, we could use: 

ADD R0,R1,R2 

But we could equally well shift the contents of 
R2 by say 16 bits to the left before the addition 
takes place using: 

ADD R0,R1,R2,LSL #16 

It should be stressed that the shifted contents 
of R2 do not get written back to that register. 
The shift takes place as the data stream 
passes through the barrel shifter on its way to 
the ALU. 

Since a binary shift to the left by n places 
multiplies the operand by 2 A n, and a similar 
shift to the right performs an integer division by 
the same amount, it is easy to see how useful 
the ARM'S multiple shift and rotate operations 
can be. Remember that on "coal-fired" CPUs 
like the Z80 and 6502, shift and rotation 
operations work only one bit at a time, and 
each requires the full time of the CPU. On the 
ARM by contrast, shifts and rotations 
performed in this way may be from to 31 bits 
in magnitude, and providing that the shift is 
expressed as an immediate operand, there is 
no time overhead whatsoever; though if the 
degree of shift is given in a register this doubles 
the execution time. Thus the ADD instruction 
above would take just 125 nano-seconds to 



Barrel 
Shifter 



\7 X> 

32 bit 

Arithmetic-Logic 

Unit 



Output 



Fig. 1 The barrel shifter is situated in the 
path of one of the inputs to the ALU 

perform in RAM on an Archimedes. Adding 
condition and flag-setting suffixes to the 
instruction also carries no time overhead. So for 
example, the instruction: 

SUBNES RO,R1,R2,ROR #8 

still takes only 125 nano-seconds. 

SPECIFYING A SHIFT 

There are four possible shift mnemonics: 
LSL, ASL, LSR and ASR (see table 1). The first 
two are identical in effect. They cause a left 
shift of the binary operand. With a shift of n bits 
to the left using LSL #n, n zero bits are shifted 
in at the right of the operand, and the carry flag 
holds the last bit to be shifted out at the far left. 

Thus the number: 

C? 11001100 11001100 11001100 11001100 

becomes: 

Cl 10011001 10011001 10011001 10011000 
after LSL #1 , where "C" indicates the carry (lag. 

The effect of LSR is very similar, except that 
zeros are added at the left-hand end, and the 
carry flag holds the bit last shifted out at the 
right-hand end. After LSR #1, our number 
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would become: 

CO 01100110 01100110 01100110 01100110 

The effect of ASR is somewhat different. 
This performs a shift to the right in a similar 
way to LSR, but to assist with signed integer 
arithmetic, the sign bit (bit 31) of the original 
operand is preserved. Thus instead of 
introducing zeros at the left-hand side for each 
bit-shift, a copy of bit 31 is introduced. Using 
the two's complement sign convention, this 
would mean that with positive integers, a zero 
would be introduced, while with negative ones, 
a one would be introduced. After ASR #1 our 
number would become: 

CO 11100110 01100110 01100110 01100110 

If we had used ASR #2, the result would have 
been: 

CO 11110011 00110011 00110011 00110011 
Thus when using ASR #n on a negative 
number, n ones are introduced at the left; while 
with a positive number, n zeros are introduced. 





THE SHIFT MNEMONICS 


LSL 


Logical shift left 


ASL 


Arithmetic shift left 


LSR 


Logical shift right 


ASR 


Arithmetic shift right 


THE ROTATE MNEMONICS 


ROR 


Rotate right 


RRX 


Rotate right with extend 



Table 1. Shift and Rotate 

SPECIFYING ROTATION 

There are just two rotation mnemonics, 
ROR (Rotate Right), and RRX (Rotate Right 
with extend), and only one of these, the former, 
takes a parameter. ROR performs a standard 
rotate. The reason that there is no left-rotating 
counterpart is that rotating right by 8 bits is the 
same as rotating left by 24 bits. After ROR #1 
all bits are shifted to the right by one position, 
and the bit lost at the right-hand end appears 



as bit 31 of the new number. The carry flag also 
takes the value of the last bit shifted out. After 
such a rotation, the number used in our 
examples above would become: 

CO 01100110 01100110 01100110 01100110 
If it were allowed, a rotate right by 32 bits would 
thus leave any register unchanged. But since 
this is a useless exercise, the instruction code 
which would have performed ROR #32 has 
been allocated to the RRX instruction. 

Rotate right with extend performs exactly 
the same operation as the 6502's ROR. It has 
no parameter, and can only rotate by one bit at 
a time. It differs from ROR #1 in that the carry 
flag is treated as bit 32. Thus with RRX, the 
contents of the carry flag are rotated into bit 31 , 
and at the other end of the register, the 
contents of bit zero are rotated into the carry 
flag. This forms a 33 bit loop. If we perform an 
RRX on the following number: 

Cl 11001100 11001100 11001100 11001100 
the result will be: 

CO 11100110 01100110 01100110 01100110 
Oddly enough, there is no left-handed 
equivalent of RRX. But you can achieve exactly 
the same result by using the following ADC 
instruction: 

ADCS R0,R0,R0 

SPECIFYING THE DEGREE OF SHIFT 

With each of the shift and rotate operations 
which take a parameter, the degree of shift may 
be specified as an immediate value between 
and 31, or it may be a register. In the latter 
case, only the low byte of the register's 
contents will be used. Here is an example of 
the two forms: 

ANDEQ R0,R1,R2,LSL #4 
ADCLOS R0,R2,R2,ROR R10 

Both instructions are conditional, and in 
addition, the second sets flags to reflect the 
result. The first shifts the contents of R2 by 4 
places to the left (thus multiplying it by 16), 
before adding it to the contents of R1, and 
placing the result in RO. The second rotates the 
contents of R2 by an amount specified in the 
low byte of register R10, before adding the 
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result to the original contents of R2, and placing 
the final result in RO. 

It should again be stressed that in both of 
these examples, the contents of R2 remain 
unchanged after the operation. But there is 
one way in which the result of the shift can 
leave its mark directly. On all logical 
instructions from the arithmetic and logical set, 
if the S suffix is specified, then the carry flag 
reflects the result of any shift or rotate 
operation carried out on the second operand. 
By contrast, the N and Z flags reflect the result 
of the complete operation. Thus after the 
following instruction: 

ORRS R0,R1,R2,LSL #1 

N and Z will be set according to the overall 
result of the OR operation, while the carry flag 
will hold the top bit of the contents of R2 (since 
LSL #1 shifts the top bit of a number into the 
carry flag). 



We can now take a brief look at some of the 
ways in which the power of the barrel shifter 
can be harnessed. First of all, how can it be 
used to perform a simple shift or rotation 
operation on a specified register? The answer 
is: by using the MOV instruction. To shift the 
contents of RO to the left by 8 places, we can 
use: 

MOV R0,R0,LSL #8 

If you want the carry flag to reflect the result of 
the shift, add the S suffix, thus: 

MOVS R0,R0,LSL #8 

By using left or right shifts we can multiply 
or divide numbers by a variety of factors. The 
example above multiplies the contents of RO by 
256. Generally speaking we can multiply by 
2 A n, 2 A n+1 or 2 A n-1 in a single operation. 2 A n is 
achieved using MOV as above. For 2 A n+1 we 
can use the ADD instruction: 

ADD R0,R1,R1,LSL #n 

This shifts the contents of R1 by n bits and 
adds the result to the contents of R1 (giving a 
multiplier of 2 A n+1). To multiply by 2 A n-1 we 
need to use the Reverse Subtract instruction, 



which we have not yet covered in any detail: 

RSB R0,R1,R1,LSL #n 

will multiply the contents of R1 by 2 A n-1 . 

Multiplying or dividing by other fixed factors 
can be achieved with combinations of 
instructions. For example the following pair of 
instructions will multiply the contents of RO by 
10, and place the result back into RO. Note the 
economy of register use in this example: 

MOV R0,R0,R0,LSL #1 
ADD R0,R0,R0,LSL #2 

The first instruction doubles the contents of RO, 
and the second multiplies it by 5, giving the 
required result of 10 times. 

By this point you may be wondering why we 
do not use the perfectly adequate 32-bit 
multiply instructions in the ARM'S repertoire. 
The answer is that they take considerably 
longer to execute. A 32-bit multiply can take up 
to 2125 nano-seconds (depending on the exact 
values of the operands). If we can achieve the 
same result in one or two 125 nano-second 
instructions using selected shifts, then we 
obtain a speed increase of some 8 to 17 times. 
But I don't want to leave the impression that the 
only use for shift or rotation operations is for 
faster division or multiplication. There are many 
instances where such operations are used to 
extract selected parts of a 32 bit word, and for 
bit and flag manipulation in general. For 
example, the following instruction will place the 
top byte of the contents of R1 into the bottom 
byte of RO: 

MOV R0,R1,LSR #24 

Space constraints prevent us from giving 
further examples. Even so, you will probably 
have gathered by now that the ARM'S barrel 
shifter is an exceedingly powerful tool, the more 
so because it carries no time overhead in most 
circumstances. The only problem for the 
programmer is how to make the best use of the 
flexibility which it offers. 

Next month we will take a closer look at the 
ARM'S logical and arithmetic instruction set. rm 
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Compiled by Lee Calcraft. 



PRINTER BUFFER TEST DEBUGGED 

ADVALj-4) can be used to test whether a printer is on line 
or not, since it returns the current free space in the Arc's 
printer buffer. The way to perform the test is to obtain the 
number of free bytes in the buffer, then place a few null 
characters into the buffer, and test the length again. If the 
number of free bytes has not changed, the printer must be 
connected, since it has absorbed the extra characters. 

But there is a snag. The Arc is so fast that if you perform 
the test normally, you will always get the impression that 
there is no printer connected. The way around this is to 
incorporate a delay so that the printer can catch up. Here 
is the modified routine, presented as a function. It returns 
TRUE if a printer is connected, and FALSE if not. As a 
bonus, the accompanying program also prints out the size 
of the buffer in use. This will be 63 bytes (1023 bytes on 
RISC OS) unless you are using an extended buffer, such 
as that published in RISC User Volume 1 Issue 3. 
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REM >PrintTest 

REM Arc Printer Test 
REM by Lee Calcraft 

PRINT 1 "** PRINTER TEST **"' 

IF FNprinter THEN 

PRINT"Prlnter on line" 

ELSE 

PRINT"No printer detected" :VDU7 

ENDIF 

PRINT'"Buffer size= "; startsize; 

END 

DEFFNprinter 

startsize=ADVAL (-4) 

VDU2, 1,0, 1,0, 1,0,1,0,1,0,3 

wait=INKEY(2) 

endsize=ADVAL(-4) 

=(startsize=endsize) 



If you use strings of dotted or dashed lines to divide up 
long program listings into sections, you will be pleased to 
hear that if you place these outside of the main program 
loop, and. outside of procedure and function definitions, 
they carry virtually no time penalty, because the Basic 
interpreter only comes across them when it is searching 



for the definition of a new procedure or function. This also 
means that you do not need to begin the line with a REM - 
the line can begin with the dots or dashes themselves. 

Better still, if you start such lines with the keyword DEF, 
you cause no great problem to the interpreter. But now, if 
you wish to get a summary of a large program by turning 
on the printer, and tying: 

LIST IFDEF 

The lines at which all procedures and functions are 
defined will be listed, together with all your comment lines 
beginning with DEF. This helps clarify a long program 
listing. For example, you might use something like: 



DEF- 
DEF- 

DEF- 



Menu Choices 



put menu choice procedures here 

DEF 

DEF- Graphics Routines 
DEF 



put graphics routines here, 



etc. 



The reason for the dash after the DEF is to save the Basic 
interpreter looking along the blank spaces when it is 
checking for a new procedure or function definition. 



A simple way to determine the length of a file without 
using SWI calls is to use EXT#. Simply open the file, and 
read EXT#. Thus: 

handle%=OPENIN (nameS) 

PRINT EXT# handle! 

CLOSE* handle% 



As you may know, the ARM processor runs faster when 
accessing RAM than ROM. This is because the ROMs 
used in the machine are not guaranteed to work as fast as 
the machine's RAM chips. This is why you can speed up 
Basic by using RAM Basic. But there is another way. If 
you execute the following: 

SYS "OS_UpdateMEMC",64,64 
you will instruct the Arc to access ROM at RAM speed. In 
many cases everything will work ok, and you will get a 
20% speed increase. If not, no harm is done, just switch 
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off or use Ctrl-Reset to reset your machine. An alternative 
way to reset the speed is to use: 

SYS "OS_UpdateMEMC" ,0,64 
Thanks to Barry Christie for this. 



Basic error number 37 appears not to be documented in 
the User Guide. Its associated message is Wo mom for 
function/procedure call at line n, and it occurs when the 
Basic stack runs out of room to stack the return 
addresses of nested procedures or functions. Since the 
stack normally has room for many thousands of nested 
return addresses, the error is only likely to occur if a 



procedure repeatedly calls itself in an infinite recursion. 
For example: 

10 EROCcrash 

20 END 

30 : 

40 DEFPROCcrash 

50 PROCcrash 

60 ENDPROC 



Flags which may either be TRUE (=-1) or FALSE (=0) 
may be inverted with the expression: 
flag=NOT flag 
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A programmable drum machine that uses the WIMP system to allow full mouse 
control. Four sample rhythms are provided on the disc. 



A demonstration of the delta-file technique that 
animates a receding planet. 



A scrolling disassembler is added to the Toolbox, 
together with a more colourful memory editor. 



A short program to test if a printer is on-line and to 
report the size of the printer buffer. 



Achieve fool-proof data entry with this routine that 
offers more control than INPUT. 




An extended version of the Image Spinner 

which allows any part of a picture to be scaled and 

plotted at any position in any orientation. 



A revised version of the RISC User Disc Menu 
which features an alternative colour scheme. 



Three more visual programs: an attractive 

cross-fade complete with sample pictures and 

two short routines to draw swirling patterns in 

256 colours. 



r 



* BONUS ITEMS * 

An implementation of a famous card game. 



A module that provides a sampled piano voice 
for use with the SOUND command. 



Bibliographies for this issue of RISC User and 
the latest BEEBUG to include in Arcscan. 



RISC User magazine discs are available to order, or by subscription. Full details of prices etc. are given on the back cover of each Issue of RISC User. 
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The programs from each issue of RISC User are available on a monthly 3.5" disc. This will be available to order, or 
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